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Introduction 

A.  BACKGROUND : 

The  automated  production  plan  computer  program  w tc  originally 
developed  by  the  TACOM  Systems  Analysis  Office  bast  ' v a request 
from  LTC  Michael  K.  Gray,  Assistant  Project  Manager  of  the  newly 
formed  Project  Manager  Office  for  M60  Tank  Production  Overall 
coordination,  concept,  and  output  development  was  accomplished  by 
CPT  Robert  J.  Ament,  Chief  of  the  Systems  Management  Information 
Office  for  M60  Tank  Production.  Execution  and  maintenance  of  the 
automated  production  plan  was  carried  out  by  2LT  Stanton  Brown  and 
2LT  Stephen  Overall,  also  from  M60's  Systems  Management  Information 
Office. 

Due  to  the  increased  demand  for  new  tanks  resulting  from  the 
October  1973  Mid-East  Conflict,  in  the  fall  of  1974  the  M60  Project 
Manager  Office  was  split  into  Development  and  Production.  This  split 
allowed  the  appointment  of  a separate  Project  Manager's  Office  solely 
dedicated  to  tank  production.  The  goal  was  to  accelerate  the  tank  pro- 
duction rate  as  fast  as  possible  under  peacetime  restraints.  A 
facilitization  plan  was  executed  whereby  many  existing  suppliers 
were  expanded  and  dual  sources  were  brought  on  stream.  For  example, 
the  sole  supplier  of  hull  and  turret  castings,  Blaw-Knox,  East  Chicago, 
could  only  produce  a maximum  of  40  casting  sets  per  month.  With 
facilitization,  the  East  Chicago  foundry  will  be  producing  at  80  per 
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month  by  late  calendar  year  '77.  Correspondingly,  a second  foundry 
source  was  brought  on  stream  in  .’heel  ag  kV.ft  Virginia  .nd  oy  tne 
end  of  1 977,  they  will  be  producing  40  casting  set*-  pt-t  month.  This 
combined  production  will  pro. the  suffici  ■ •,  . nl ' r sad  turrets  to 


produce  M60A1  tanks  at  120  per  n.onth  starting  in  Jan-  ary  1973. 

Expanding  the  M60A1  tank  production  rate  from  12  per  month  in 
1973  to  120  per  month  by  January  1976  required  intertilled  anagemert 
on  the  part  of  the  M60  Tank  Production  Project  Manager  Office  Spear- 
heading the  efforts  to  find  new  managerial  tools  were  LTC  Gray  and 
OPT  Ament.  A plan  needed  to  be  developed  that  would  schedule  components 
into  the  Army  Tank  Plant,  in  Warren,  Michigan,  to  accommodate  the  tank 
five  year  production  plan.  The  following  discussion  provided  by  CPT 
Anient  will  serve  to  explain  the  resulting  automated  production  plan. 

15.  DISCUSSION: 

Due  to  its  appearance,  the  production  plan  is  most  often  referred 
to  as  a "piano  roll".  Another  title  for  the  piano  roll  is  component 
flow  down  chart.  This  name  was  obviously  derived  from  the  fact  that 
monthly  schedules  for  components  are  usually  layed  out  above  the  end 
item  with  appropriate  lead  times  involved.  Perhaps  the  piano  roll  can 
best  be  described  by  providing  an  example.  The  following  example  can 
be  used  to  determine  component  requirements  for  a six  month  tank  build 
program.  Lead  time  for  the  power  pack  will  he  two  months  and  lead  time 
for  the  M24  periscope  will  be  one  month. 
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Example  A 
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The  "R"  line  indicates  the  minimum  monthly  require:,  writ  to  suppe:  » ti  e 
tank  production  schedule.  "RC"  represents  the  cumulative  requirement 
for  a given  month.  In  this  simplistic  example,  "RC"  is  synonymous 
with  the  line  of  balance  requirements. 

The  end  product  of  either  a manual  or  automated  piano  roll  is 
usually  the  same,  i.e.,  a formally  printed  chart  mounted  on  a wall  for 
posting  purposes.  The  difference  is  that  with  the  "APR",  the  logic 
and  computations  are  performed  by  the  computer.  Therefore,  when  there 
are  program  changes  a new  printout  can  be  obtained  by  making  the 
appropriate  changes  in  the  data  files  and  printing  out  the  new  piano 
roll . 

Other  advantages  of  the  "APR"  are  obvious.  Since  all  computations 
are  made  by  the  computer,  errors  are  minimized.  In  addition,  if  a formal 
chart  is  required,  there  is  less  chance  for  a transcribing  or  legibility 
error.  Finally,  the  data  base  that  is  developed  can  be  used  to  answer 
"what  if"  questions  (e.g.,  impact  of  slippage  in  an  individual  component 
schedule) . 
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The  automated  piar  ' roll,  as  described  i r.  this  mma!  , of'ers  a 
net.  dimension  to  line  o'  d .lance  - l '•  e concept  ol  mandatory  float 
(MP) . When  the  max imuni  production  rate  of  a component  is  less  than 


the  required  tank  production  rate,  mandatory  float  is  requir'd  above 
the  line  of  balance.  Example  B‘  ..isumes  r.het  t he  r r -mum  nion  !y 
production  rates  for  M24  periscopes  is  45.  Since  the  monthly  tank 
production  rate  for  .July  and  August  is  50,  we  cannci  follow  the  LOB 
requirements  for  M2A  periscopes.  Remember,  the  T.OB  for  the  M2 4 
periscope  would  be  the  monthly  cumulative  (RC)  fo:  tanks  bailed  ofr 
one  month  (assuming  a one  month  lead  time) . If  the  LOB  for  periscopes 
was  followed,  we  would  have  an  RC  for  periscopes  in  May  of  100,  and 
in  June  "R"  would  have  to  be  50  to  support  tanks  being  completed  in 
July.  However,  we  are  assuming  that  monthly  production  for  periscopes 
cannot  be  greater  than  45.  Therefore,  we  must  build  up  a surplus 


I 


(mandatory  float)  In  the  early  months  to  supj  crt  tank  production  when 


the  monthly  tank  production  rate  (considering  lead  time)  is  greater 
than  the  maximum  monthly  component  rate.  In  the  example  'B',  the 
computer  ..cans  the  tank  production  schedule  and  determines  that  mandatory 
float  (MF)  must  be  built  into  the  periscope  schedule.  Seeing  the  tank 
production  rate  of  50  in  July  and  August,  the  computer  realizes  that 
the  tank  monthly  rate  is  5 greater  than  periscope  maximum  production 
for  the  last  two  months.  Therefore,  10  periscopes  must  be  built  above 
the  line  of  balance  requirement  prior  to  the  last  two  months  of 


periscopes  can  be  made . But,  «io.  1 1>  novum  1 re  1 rerent  for  May 
would  have  been  40,  only  5 additional  periscopes  car.  be  required  for 
May  (since  45  is  maximum  for  air-  one  month).  Working  backwards,  the 
computer  looks  to  April  to  see  if  the  remaining  5 prl scopes  can  be 
product  . Since  only  30  periscopes  would  m . 1 ! •/  ) , requl : In  April 

the  5 remaining  periscopes  can  be  added  to  th<  tl  and  still 

remain  well  below  the  45  per  month  maximum  allowable  f uj  ; .»rif.ror>. 

As  a result,  the  mandatory  float  for  April  Is  5,  and  the  5 additional 
"R"  for  May  results  in  a cumulative  mandatory  float  for  May  ot  10. 

Since  only  five  of  the  additional  10  periscopes  are  consumed  in  June 
(for  July  tanks),  the  remaining  mandatory  float  for  June  is  five. 
Finally,  in  July  (for  August  tanks)  all  mandatory  float  Is  consumed , 
and  once  again,  "RC"  (200)  equals  LOB  (200). 

Example  B 
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In  all  months  shown  for  the  power  pack,  the  cumulative  requirements  (RC) 
equals  the  line  of  balance  (LOB).  However,  in  the  case  of  the  M24 


periscope,  the  RC  for  Api  LI,  vt  a ' in  abov<  I i . i-aJance. 
Mandatory  float  for  these  three  mo-  thr;  i:  :'.i  rates  the  amount  the  RC 
is  above  the  LOB.  Therefore,  PC  = LOT  + MF. 


The  piano  roll  provides  the  minimum  comp..-::e-«tiS  schedule  (RC) 
necessarj  to  meet  tank  production.  .he  re  .son  that  nu  .in.  > "Red 

Flag"  is  emphasized  is  that  thr  piano  roll  schedule  for  . •mponer.ts. 
should  not  be  confused  with  the  contractual  schedule  iron,  .’cndors  or 
PRON  schedules  fro.u  the  Arsenals.  in  almost  all  cases,  the  RC  for 
penents  is  lower  than  the  actual  quantity  planned.  Let':-  look  at 
the  M24  periscope  again.  Assume  that  in  reality  the  contractor  planned 
to  ship  40  periscopes  per  month  starting  in  February  and  ending  in 
June.  The  total  200  periscopes  would  be  delivered  one  month  ahead  of 
the  minimum  requirement.  Let's  further  assume  that  it  is  now  the  end 
of  April  and  we  received  25  periscopes  per  month  for  the  last  three 
months.  Would  we  have  a "line  stopper"  situation?  Tf  we  were  onlv 
monitoring  the  contract  schedule  of  40  per  month  we  would  have  to  ma-  nallv 
determine  our  actual  requirement  for  the  end  of  April  (RC)  before  we 
knew  if  we  were  in  trouble.  However,  with  the  piano  roll,  this  work 
has  already  been  done  for  us  and  we  can  see  that  a cumulative  receipt 
for  April  of  75  is  10  above  our  RC  for  April.  Therefore,  we  know 
that  tank  production  for  May  (one  month  lead  for  periscopes)  can  be 
met.  Although  the  piano  roll  schedule  (RC)  for  components  is  the 
minimum  necessary  to  satisfy  tank  production,  the  tank  requirements 
(RC)  could  be  associated  with  a variety  of  plans.  For  example,  the 


A 


A 


tank  schedul  e (RC)  could  be  in  t •.  »;•  'fat  >!  ■„  , I rnment  ommi tment , 

or  an  accelerated  target  schedule  ove  baseline  t equirenrntf  In 
either  case,  the  RC  for  components  re.  id  be  the  minimum  necessary  to 
support  the  respective  tank  schedule.  loir.  dinp.ly,  the  contract 
schedules  should  be  reviewed  to  assure  th  t th  art  nma  i o 
greater  than  the  piano  roll  RC  for  each  respec  <v  ccr. , • • t s thst 

the  tank  production  piano  roll  schedule  can  hr-  v-tisi  . « 

Finally,  surplus  float  (SF)  is  :.dued  to  the  aut  ate  1 Li  u roj  . 
F.xample  B can  be  expanded  to  consider  future  requirements  b-  sc.,  o. 
actual  figures  to  date.  (See  example  C.)  Assume  that  1 ' r.ow  the 

end  of  February  and  15  power  packs  were  received  In  January  and  C tr 
February.  Likewise.,  assume  8 periscopes  were,  received  in  February  . 
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reou  irement  would  he  22  rather  thin  thr  20  -ndi  ■ u ed  . . Example  B. 

In  conclusion,  one  c«o  readily  appreciate  tie  work  rnvdved  in 
updating  .•  piano  roll;  especially  considering  a sir  ■ u plan. 

: ampliations  for  72  months  are  required  for  each  component  being  considered . 
The  agree  of  difficulty  associated  with  the  waiting  o<_  a piano  roll  is 
further  exemplified  when  considering  more  than  one  ser.t"'  tank  (e.g., 
engines  are  required  for  M60A1.  tanks,  armored  vehicle  launch  bridges, 
ombat  engineer  vehicles  and  M48A1-A5  conversions).  fn  addition,  a 
component  may  have  different  lead  times  associated  with  the  different 
end  items.  Perhaps  most  important,  the  automated  piano  roll  has  taken 
a manual  task  requiring  approximately  100  man  hours  and  reduced  the  time 
required  to  about  four  man  hours. 


SUMMARY  OF  PIANO  ROLL  TERMINOLOGY 
R:  Monthly  Requirement 

RC:  Cumulative  Requirement 

MF:  Mandatory  Float 

SF:  Surplus  Float 

A:  Monthly  Actual 

AC:  Actual  Cumulative 

LOB:  Line  of  Balance  Cumulative  Requirement; 
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In  chapter  2 we  describe  i he  input  ' lated  with  the  piano 

roll.  There  ate  three  input  li  a ;.oc ' > program:  the 

■’ehicle  file,  the  component  file,  on  1 • i that 

all  input  files  are  fixed  format  and  an'  coli.  r.  lepend  nt  . 

Ve : ■ j rlii  File  : 

i Lrst  file  to  b(  tbed  is  th<  hide  file  wh i ■ h conta i;>:- 

the  monthly  production  schedules  tor  all  vet  cles  i eked 

P’Ograni.  The  following  is  a breakdown  of  important  . ! t-  • . • t s within 
the  file  with  their  formats.  Figure  2-1  shows  the  loca  ion  of  each 
e ] eiten  t . 

This  column  is  the  record  number  within  the  file.  (12) 

2.  The  number  of  the  line  within  the  record  designated  by  Item  #1.  (12) 

3.  The  beginning  month  and  year  of  the  program.  (The  beginning  month 
must  be  December).  2(12) 

4.  The  last  month  and  year  of  the  program.  2(12) 

5.  The  last  month  for  which  production  data  lias  been  entered.  2(12) 

6.  Planned  initial  for  the  individual  vehicle.  (14) 

7.  Actual  initial  for  the  individual  vehicle.  (14) 

8.  Vehicle  name.  40A2 


9.  The  planned  production  both  past  and  future.  There  should  be  a 
line  for  each  year  of  the  program  beginning  with  the  year  following 
that  designated  by  I tern  #2.  (4X,  1215) 

10.  The  actual  production.  There  should  be  an  entry  for  each  month 
from  the  month  following  Item  #2  to  the  month  designated  by  Item  #4. 
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Coinpoiu’ i ! i i •.  l : 

L'ul  ..L'tonJ  lilt  , iU.  component  . < ruts  ’ . e contains  *»<•  past 

planned  amounts  and  tn  .•  axinin  pnJu  it:  . t"i.:S  i r each  component 
used.  The  following  ii.  . ’esetiptior.  or  imports  .1  element  found  in  tins 

ill  . Figure  2-2  showt  the  locari  i f t ,:h  elr;  ni  . 

1 Data  Line  This  must  correspond  to  the  dote  I . in  t'.  -n  tele  f 

2.  Humber  of  Vehicles.  This  numbei  must  ccrrespo  i tie  .unifier 

vehicles  a the  tank  f i le . (12) 

3.  Vehicle  Names.  (40A2) 

4.  Record  Number  fL2) 

3.  Line  Within  the  Record.  (12) 

6.  Actual  Initial  for  the  Component.  If  there  is  more  than  "1"  supplier, 
this  number  is  zero.  (14) 

7 Planned  initial  for  the  component.  If  there  is  more  than  one  supplier, 
this  number  is  zero.  (l4) 

8.  Number  of  Suppliers. 

9.  Component  Name.  (40A2) 

10.  This  line  is  formated  1 2 , ?2,  12(12,  13).  The  12(12,  13)  represents  the 
lead  time  and  percent  uses  of  the  component  for  each  that  contains  the  component 
there  must  be  a non-zero  entry  for  eacli  vehicle  In  Item  #3.  If  the  component 

is  not  used  in  a vehicle,  a 99  should  be  placed  in  the  1 2 field  and  a zero  in 
the  13  field. 

11.  Actual  Initial  for  the  Supplier.  (Not  present  if  one  supplier.)  (14) 

12.  Planned  Initial  for  the  Supplier.  (Not  present  if  one  supplier.)  (I-*) 

13.  Priority  All  priority  numbers  are  summed  and  a percentage  of  this  total 
is  assigned  to  each  supplier  based  on  their  individual  priority  number.  When 
the  planned  production  schedule  is  split  among  the  suppliers,  each  supplier  gets 
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1».  Supplier's  Name.  40A2 

15.  ’•his  sec  ion  represents  I.  m si  impc  ’a  it  data  iri  the-  file.  There 
is  a line  for  each  year  in  ti.  > pro.  m,  bot.i  ; >l  and  future.  Tn  the 
past  (outlined  ill  our  > r.-ramplc  ) u.  enti  . < ent  Me  planned 

luction  • >:  the  s p I Let  /compc  u nt  whtl  n fvitut  entri 

represent  the  maximum  production  possibi  for  tl  co  , /supplier 

(4X,  12 15) 


The  month  by  month  actual  produ  lion  There  is  r 1:  tor  each  i., 

yo  ■ are  into  the  program.  (4X,  1215) 


lhe  last  file  (optional)  which  is  used  by  the  program  is  the 
contract  file.  This  file  contains  the  contract  schedule  to  tiie  given 
component  and  supplier.  The  file  must  be  identical  to  the  component  file 
except  each  lead  time/percent  usage  line  is  deleted.  In  the  place  of  this 
line,  a line  formatted  (12,  12,  2X,  13)  is  inserted.  The  first  two  12’s 
must  be  identical  to  the  corresponding  elements  in  the  component  file. 

The  13  field  must  contain  the  length  of  the  conrract  in  months  beginning 
with  the  first  month  of  the  program. 
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CHAPTER  3 


In  chapter  3 we  describe  the  key  elements  round  in  the  output.  The i e 
are  two  sample  outputs  presented  w>.  > eh  show  th  relationship  between  the 
selection  of  options  and  subsequent  output.  The  acta'  runs  which  producec 
the  outputs  are  found  in  Append >:  A. 

A.  Sample  Run 

1.  Options  utilized.  The  following  set  of  options  were  used  to 
produce  the  first  set  of  output. 

Smooch ing . 

Complete  output  printed. 

Float  rows  printed. 

No  contract  schedule  . 

Tank  production  schedule  printed. 

Date  pointed  in  header  information. 

Time  printed  in  tank  production  schedule. 

Variance  rows  printed. 

Header  section.  Figure  3-1  shows  the  header  which  is  printed  at 
the  beginning  of  each  set  of  output.  The  elements  printed  are: 

a.  Last  Update  - This  is  the  inclusive  date  for  the  output. 

b.  Date  of  Report  - This  is  the  exact  date  on  which  the  output  was 
generated. 

c.  Time  of  Report  - This  is  the  exact  time  the  output  was  generated. 

* The  program  is  set  up  to  use  a contract  file  but  it  is  not  currently 
being  used. 
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d . lank  File  Name  - This  s the  file  whim  contains  the  production 
schedules  for  the  vehicles  being  t lucked.  In  this  case  it  is  named  TNK.  A 
copy  of  this  file  was  included  in  the  preceding  chapter. 

e.  Component  File  Name  - This  file  coma  i 1 s the  key  components  to  be 
tracked.  For  a discussion  of  this  til  see  tb.  preceding  cnapter. 

f.  This  section  prints  tire  components  included  in  Lhe  output.  The 
components  used  are  determined  at  run  time,  see  Appendix  A. 

2.  First  Component  - Figure  3-2  show's  the  header  for  the  first 
component  to  he  printed,  the  power  pack.  The  significant  elements  in  mis 
section  are: 

a.  Actual  Initial  - This  is  the  number  of  components  on  hand  at  the 
beginning  of  the  tracking  period. 

b.  Actual  Planned  - This  is  the  number  of  components  planned  to  be 

on  hand  at  the  beginning  of  the  tracking  period. 

c.  Lead  Time  - This  is  the  number  of  months  the  component  must  be 

received  prior  to  the  completion  date  of  the  vehicle  containing  that  component. 

d.  Percent  Use  - The  number  of  this  component  used  by  the  vehicle. 

It  may  vary  from  001  to  999,  but  it  is  written  in  percent. 

e.  Component  Name  - This  is  the  name  of  the  component  being  tracked. 

3.  First  Component  Totals  - Figure.  3-3  shows  the  information  generated 

for  the  power  pack.  The  key  elements  are: 

I a.  Required  (REQ)  - In  the  past,  this  is  the  month  by  month  planned 

historical  data.  In  the  future,  this  is  the  month  by  month  total  necessary 
for  the  meeting  of  the  vehicle  production  schedules. 
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b.  Requited  Cumulative  (K^qCM)  • This  is  the  cwrulativ-  total  of 
the  RKQ  line. 

Mandatory  Float  - In  fit  past,  this  is  the  Lfference  between  the 
Line  of  Balance  (LOB)  and  the  cumulative  of  th-  planned  *s tor leal  data 
In  the  future,  it  is  the  amount  abov  • t;.  ;.,JB  t.,.>  t is  < -saary  to  maintain 

vehicle  production,  (REQCUM-LOB) . In  sho;.t,  me  man  ’to  , ; i-.at  > a build 
np  of  components  necessary  to  take  care  of  a sho. i a i ‘ in  the  i . t jre  iroug  it 
about  when  the  production  rate  of  the  vehicles  it  greater  th  > the  maximum 
production  rate  of  the  component. 

d.  Surplus  Float  (SUPFLT)  - In  the  past,  the  surplus  float  is  the 
difference  between  the  cumulative  actual  production  and  the  cumulative 
planned  historical  data  (ACTCUM  - REQCUM) . In  the  future,  trie  surplus  float 
is  the  difference  between  the  smoothed  cumulative  required  production  schedule 
and  the  unsmoothed  cumulative  required  production  schedule  (Che  second  set 

of  output  in  this  chapter  shows  the  unsn.oothed  schedule). 

e.  Actual  (ACT)  - This  is  the  past  actual  production. 

f.  Actual  Cumulative  (ACTCUM)  - This  is  the  cumulative  of  the  Actual. 

Note:  The  ACTCUM  (at  last  month  in  past)  + REQ  (at  1st  month  in  future)  = 

REQCUM  (at  1st  month  in  future).  This  is  due  to  the  fact  that  all  future  re- 
quirements are  based  on  the  actual  value  at  the  last  month  of  the  past. 

A.  Second  Component. 

a.  Header  information  - Figure  3-4  is  the  header  for  the  second  component, 
the  gun  mount.  There  is  one  major  difference  between  this  component  and 
the  previous  one.  It  has  more  than  one  supplier.  This  is  shown  as  element 
"a"  on  the  figure. 

b.  Supplier  Output  - Figure  3-5  shows  the  output  for  the  first 
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supplier,  Rock  Island  Arsenal.  ••nou.-l  b-  notea  that  the  • l oat  lines  do 

not  appear  for  tin?  individual  sujv  ■ >.  The  rema  tniag  elements  were 

■xpli  ined  in  the  secti<  mcerning  the  . put  >r  the  power  pack.  Figure 
3-(  nows  the  output  associated  • ch  the  see  md  supplier,  Chrysler. 

c.  Totals  - Figure  J-7  si  the  tot  1 or  botl  pp  of  thi  gur. 

mount.  Mote  that  the  "r  ifal"  page,  contains  the  iloa!  lines.  All  elements 
in  this  output  were  prc  tsl;  explained. 

5.  Weapons  System  b jii  - This  section  of  the  output,  shows  the  month 
■y  month  vehicle-  requirement.  Figures  3-8,  3-9,  and  3-10  show  the  require- 
ments for  the  three  vehicles  tracked  in  the  sample  run.  he  following  is 
a breakdown  of  the  significant  elements  in  this  output; 

a.  Required  (REQ)  - This  line  represents  the  monthly  required  production 
rates  for  the  given  vehicle. 

b.  Required  Cumulative  (REQCUM)  - This  is  the  cumulative  totals  of  the 
required  line. 

c.  Actual  (ACT)  - This  line  represents  the  actual  monthly  production. 

d.  Actual  Cumulative  (ACTCUM)  - This  line  is  the  cumulative  total  of 
the  "Actual"  line. 

e.  Monthly  Variance  (MTHVAR)  - This  line  represents  the  difference 
between  the  monthly  required  total  and  the  monthly  actual  total  (REQ-ACT). 

f.  Cumulative  Variance  (CUMVAR)  - This  line  represents  the  difference 
between  the  required  cumulative  and  the  actual  cumulative  (REQCUM-ACTCUM) . 

B.  Sample  Run  2. 

This  section  represents  another  run  of  the  program.  The  following 
options  were  used  in  this  run; 
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I No  smoothing  usee!. 


2.  Complete  output  printed. 

3.  No  float  rows  printed. 

4.  No  contract  schedule  printed. 

5.  No  tank  file  printed. 

6.  Date  not  printed. 

7.  Time  not  printed. 

8.  Variance  rows  not  printed. 

By  comparing  figures  3-11  to  3-16  with  the  corresponding  tables  fr.-m 
the  first  run,  it  is  possible  to  see  the  differences  associated  with  the 
us'  of  the  smoothing  routine. 

One  useful  option  not  illustrated  in  this  chapter  is  the  summary  output- 
option.  If  this  option  is  utilized  only  the  totals  will  be  printed  for 
earn  components.  The  separate  supplier  information  would  not  be  printed. 
This  option  saves  considerable  execution  time 
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CHAPTER 


I NTROOUCTION 

In  chapter  4 we  give  ’let ailed  instruction  for  running  the  piano  roi 
subprogram  rela  ionships,  program  flcwcha,  s and  a Listing  of  tnc  program 
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Main  Program 


The 

purpose  o t 

th 

main 

l)i  ;*  I 

no  Roll 

rout 

. tne  is 

t ,tuse  options 

se 

t (lags,  and  main 

.t  Ml 

a super 

via 

in)  ~ont 

r<  1 

1 1 cal : 

i,  ' subr.  itines. 

op 

t LOUS 

are  chosen 

by 

respon  r\ 

ing 

to  the 

foi  1 

owing  , 

v >,  uter  aerie  ; ted 

me 

ssage 

( responses 

to 

compute 

r u 

’ de  r 1 i no 

u)  : 

TYPE  IN  THE  CONTROL  VECTOR 

( SMT,  SUM,  FI, T,  C V3 , TAK , DA  ; V , - -'.it ) 

DEFAULT  ( C ,1,1,0,!,]  ,1,1) 
FOR  FURTHER  INSTRUCTIONS  TYPE  - • 

? 0 , 1 , 0 , 1 


In  this  example  the  following  options  would  be  chosen  (to  be  discussed  in 
deLa  11  later) : 

SMT=0  No  smoothing. 

SUM=1  Complete  output  printed. 

FLT=0  No  float  rows  to  be  included  in  output. 

CTS=1  Contract  schedule  to  be  included  in  output. 

TAK=1  Tank  production  schedule  to  be  printed  at  the  end  of  output. 

DAT=1  Date  to  be  printed  on  output  file  header. 

TIM=1  Time  to  be  printed  on  output  file  header. 

VAR=1  Variance  rows  to  print  in  tank  production  schedule. 

Note  that  default  options  were  chosen  tor  TAK,  DAT,  TIM  and  VAR.  If,  la 
fact,  all  options  are  to  be  default,  a carriage  return  after  the  question 
mark  will  suffice. 


If  -1  was  your  response,  then  tne  program  would  respond: 
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r 

CMT=1  IF  TOR  3MOOTOTNO  ROUTINE  IS  TO  BR  USED  AND 
SMr=0  OTHERWISE 

SUM=2  IF  NO  COMPOJ'-J  SK'TI  ARE  1 BIS  ''  ED, 

SUM=1  IF  COMPLETE  O'.'  ’ I "C  B.'  LMTF.D 

SUM=0  OF  ONLY  SUMMARY  Ol'TP'T  IT  I'O  E PRINTED  AND 

FLT=1  IF  THE  *0,0  A C ROWS  ARE  I’O  B < ! TNTED  AND 
FLT=0  IF  THEY  ARE  NOT 


IF 

IF 

THE 

NOT 

C0NTRACTO1 

SCHEDULE  IS  TO 

BE  PRIMED  ANT 

I? 

OF 

THE 

THE 

TANK  FILE 
OUTPUT 

IS  t I I NTE 

AT  THE  END 

rAK=Q  IF  IT  IS  NOT  TO  BE  PRINTED 

DAT=1  IF  THE  CURRENT  DATE  IS  TO  BE  PRINTED  A I ' E 
TOP  OF  TOE  OUTPUT  AND 
DAT=0  IF  IT  IS  NOT  TO  BE  PRINTED 

TIM=1  IF  THE  'TIME  OF  THE  HEPOR~  IS  0 BE  PRINT.  ' 

TIM=0  IF  IT  IS  NOT  TO  BE  PRINTED 

VAR=1  IF  VARIANCE  AND  CUM  VARIANCE  TO  BE  PRINTED 
VAR=0  IF  NOT 

The  various  options  are  discussed  in  detail  , low: 

Smooching  (SMT) : If  SMT= l , this  option  engages  the  smoothing  routine, 

and  if  SMT=0,  disengages  it;  the  default  is  0.  The  smoothing  routine  is 
used  to  prevent  large  monthly  changes  in  the  required  production  of  che 
various  components.  The  required  production  schedule  (RPS)  produced  ■ this 
routine  is  always  at  least  as  far  above  the  LOB  (Line  cf  Balance)  as  t : 
non-smoothed  schedule.  This  routine  is  semi-automatic;  that  is,  for  ai 
component  the  user  makes  relative  changes  to  the  maximum  production  achcK 
TOPS).  The  machine  then  calculates  the  RPS , displays  it,  and  asks  i>  it  is 
satisfactory.  If  it  is  not  satisfactory,  the  machine  repeats  the  above 
procedure  until  the  user  is  satisfied  with  the  results.  (For  more  details, 
see  ROLLER). 


S u mia  r • Out  put  F M ) ; 


. l:  ; 


Ol  S 


-'••■*»  ry 


the  Line  of  Balance  is  not:  pi  j|.i  . n • ... -rul  only  for 

listing  the  tank  files,*.  ; t > ; L,  jou  . o«..p  is  to  be  pr  tea, 

to  include  the  complete  list  . i • i.  . at  ..poiv  .«  ' RPS  amcng  its 

suppliers.  If  SUM-0,  fhe  outpn  i v’"  , xcctpt  l .er  is 

distribution  of  'IPS  among  suppliers.  (Si  1 . > .ft;  tor  • n ) 

Float  (FLT) : if  FLT=1,  the  mandatory  ia t ('A!  a 1 

float  (SUPFLT)  rows  are  t o bi  pri  ited  . ar 

. lost  up  to  current  date  Is  the  difference  between 

or  the  planned  historical  data,  and  in  th( 

float  is  the  amount  above  the  pure  LOB  that  is  n essary  to  maintain 
vehicle  production.  Surplus  float  in  the  past  is  the  difference  between 
the  cumulative  actual  production  and  tire  cumulative  planned  production, 
in  the  future,  it  is  the  di iierence  between  the  smoolaeb  cumulative  RPS 
and  the  unsmoothed  cumulative  RPS.  (For  examples,  see  sample  outputs-) 
Contract  (CTS)  : If  CTS=1,  a file,  called  the  contractor  file,  is 

be  included  in  the  output  file.  If  CTS»0,  it  is  not  to  be  included. 

Date  (DAT):  If  DAT=1,  the  date  is  to  be  print  J on  the  output  file 

header.  If  DAT=0,  it  is  not  to  be  printed. 

Time  (TIM) : If  TIM=1,  the  time  is  to  be  printed  on  the  output  file 

header.  If  TIM=0,  it  is  not  to  be  printed. 

Variance  (VAR) : If  VAR=1,  the  variance  is  to  be  printed  in  the  tank 

file  output.  If  VAR=0,  it  is  not  to  he  printed.  There  are  two  variances- 
monthly  variance  (MTHVAR) , which  is  the  difference  between  the  monthly 
actual  production  schedule  and  the  planned  monthly  production  schedule  in 
the  tank  file,  and  CUMVAR,  which  is  the  cumulative  of  the  monthly  variance. 
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iSfct  Li  - it) 

l Tc  L)r>V 

! V&VjS.  o •'  0>J 
; vtctor 

f 01(011  • I 


Gm\WI  Vecrer 


$£*&  Gwiroli 


Pr in 

Instructions 


Cf\LL 

XNiITT 


CM.L 
1M  IT  P 


[CALL  IN1TW 


I OSSA 

i W.-v-  CU  REwT  A - OF  Ji  JULY  1976 

5 ivj  inis  i Till*  Mat  piano  roli  PR1'  ram 

' 140  SSI)/', 

: oososrpc 

I '>)60$TTY , /6 

I -70  Lour  ALi  L • ,(  I 2)  , ONE  121  ) 

i . I ( I ■ ) , (I  ,XX,JI  . ' . . ,J3Y,0N 

■■  < 1 1 1 ',IDIVI,LI  N,[  1 <•  . U ' ,I«UMV,NUMY,  ♦ « • ,1  Y,  Y< 

«TAoK,  IP  ,CONT, OUTPUi  D,DATE(  3)  ,ZZ,Z(  120 ) ,Lr'(  I PU(  I 

( 1 >),ICT(I2  ) , I P( 120)  tITT<  120), ITP( I ■ i «,JeHY,L  P,L! 

toi  o . n . , i v iY , 1 1-  <m,  t r y , i end,  [R(  i 20  io> , ibf(  10 ) ,a  (id.ibc 
10!  i ooiio  1 os  1 = 1 , 1 2 

10140  K l.(  I ) = | 

1 01  • L ( I ) =0 
l 0 I 60  I { 4 ) =0 

101  /O  iRI.'T,"  f t R F 111  i I IF  CONTROL  VECTOR" 

101°)  MwT,"  (Ssr,SUM,FLI.CT'i,TAK,OAi  ,‘TIM,  VAR)" 

0 90  RPINT,"  D r if  AlJ  Li  (0,1,  1,0,1,  1,1,1)" 

I Vf  PRI  .T,"  FOR  FURTHER  INSTRUCTIONS  .Vi-:  -I" 

I VIO  Rl-Al 1 , (I  ( I)  , 1 = 1 , 10) 

I )220  IF  (!.  ( I ) .Nh.  -I  )UOTO  | 10 
10330  PRINT, 

10240  PRINT,"  SMT=  I Ir  THE  SMOOTHING  ROUTINE  IS  TO  BE  USi-.D  AND  » 

: 2b.)  PRIi.T ,"  SMT =0  OTHHRIf.'ISE" 

10260  PRINT, 

V PRINT,"  SUM *2  IF  NO  COMPONENTS  ARE  To  IE  USED," 

IN,-.  PPIhT,"  SUM=1  IF  COMPLETE  OUTPUT  IS  TO  BE  PRINTED" 

|0  >9J  PPI  .1,"  SUM=0  it-  ONLY  SUMMARY  OUTPUT  IS  TO  BF  PRINTED  AND" 
10300  PRI..T, 

1 i)IO  PRINT,"  fLT=I  Ir  THE  FLOAT  RONS  ARE  TO  BE  PRINTED  AND" 

1 1/320  PRINT,"  t-LT=0  IF  THEY  ARE  NOT" 

10330  PRINT, 

40  PR l IT,"  r'i  . = 1 IF  THE  CONTRACTOR  SCHEDULE  IS  TO  BE  PRINED  AN  )" 

; 03 SO  PRINT,"  CTS=0  IF  NOT" 

10360  PRINT, 

103/1  print,"  TAK  = ! Ir  THE  TANK  FILE  IS  TO  BE  PRINTED  AT  THE  END" 

I )3fu>  PRINT,"  Or  THE  OUTPUT" 

10390  PRINT,"  TAK=0  IF  IT  IS  NOT  TO  HE  PRINTED" 
i 'MOO  PRINT, 

I ) 4 1 0 PRINT,"  DAT® I IF  THE  CURRENT  DATE  IS  TO  BE  PRINTED  AT  THE" 

1 )4 20  PRINT,"  iOR  OF  THE  OUTPUT  AND" 

i i 3 o PPI NT,"  DAT=0  IF  IT  IS  NOT  TO  BE  PRINTED" 

1 ) 4 40  P P 1 1 . 1 , 

1 0460  PRI..T,"  T I M = I If  THE  TIME  OH  THE  REPORT  IS  To  BE  PRINTED" 

10460  PRINT,"  T I M =0  IE  IT  IS  NOT  TO  BE  PRINTED" 

10470  PRINT, 

1 In,"  VAR* I If  VARIANCE  AND  CUM  VARIANCE  TO  BE  PRINTED" 

10490  PRINT,"  VAk=0  IE  NOT" 

I I .00  PRINT, 


»A  IN  - 


-I  ) norm oo 
.-■>  i iocontinue 

1 • ) 1)1  20  1=  I , ! 2 

y 4 f-LAG(  1 ) -mTH'JF., 

i I 20IK  L(  I ) . EQ.u  )rLAO(  U = . rALSb. 

I)  ')  i r r ( L(  2 ) . EO.  2 )rL A0(  I I ) =. EALSI  . 
i-  ' r-  LA  :(  I 2 )=r  LAG( .; ) 

- CALI,  iiiin 

) It-  (rl.A'Jt  1 1 ) ) CALL  If)  I TP 

1 1 (rLAG(4 ) . AND. ELAG( I I ) )CALL1 N I i u 

) 10  CAI.LHEAD 

' k h k * kk  k *r*r*r*r*r  A kk  kk  kk  LNi ) M A 1 1 

• >■  !0  Ii  ( . NOT  LA  '(  I I ))  GOTO  1 6 
I 6-1,  |',(  ! >01  = 1 ,Nl:f) 

10600  CALLROLLEiHI ) 
l ' C ALLOPLIK  I ) 

106  70  CaLLPRIOK  I ) 

IO-.‘  0 I 30C0N TINUfc 
I )■  V o I 6C0NT I NUE 
I 0/00  IK  EL  AO  (5)  >CALLTA!.K»-.L’ 

10710  CAI.LHXvr 
10720  CALLF.Xir 
10730  ST()i' 

107  40  f-r.  ■ 

I O / ‘■>00  ***>•*  ************  **  **  -.0  .A  1 1 


**■**■*■**■*  v ■ k*  kkk  ‘ kk  **--*■<,»*  f ■ • A * 


i A Us~y  kkk  kk  kkkk  kkkkkkkk A kkk  * .*  kk  kkk  *k  k k 


IN  ITT  ( TANK  FID-  , CTlALlZAiTON) 


Subroutine  INITT  is  calle«i  from  the  main  program,  and  it  initializes 
variables,  obtains  the  name  ol  the  tank  file,  and  sets  pointers  to  the 
'■:s  l in*  oi  each  record  in  the  tank  file,  (S<  the  list  o global 
8 ' or  the  definition  of  those  variables  initial i n rt 
subrout ine . ) 

Lowing  is  a (ample  ol  the  printed  outpu  t ced  y 


subrout  ine ; 


TANK  FILE  NAME 
? TNK 


->■*  • • 


t U .v. 


I 0 1 


CAlL 


feAVSCT(2,Xx) 


i 


C A L L_ 
^W(?,Xx 


i&TOSN 


'OIJ  ill.-  I N I i'i 

• « m ► * X + *■•*■*  * **  1 N 1 i I A i-  1 4 1 P 


?'  N i'hKS  IN  i • r.  1-  1 LE  > 


,*J  >.  • ■ ■*  ■*  > A * * * **  » ****** 


) ?50 
J6( 
i w 70 


) /•  .)  ! : I :.i  TANK  FILE  AMF" 

. -00  REA  '1  ), TANK 
: " I ) I OH5R.4A  T(  A6  ) 

,"•)  OALLOPE'NF  (2  , TANK) 

, >30  H i V I =26 

4 ) - ****  ***  *■**  *-**;, 'i  AOS  )A  1 AS**  **•»«*  <**  ****  a***********************  ****•• 

-,o  HAiX  3,3  ) Jl  M.Ot  Y , J2M , 02  Y , J3V  , J3Y 
>.  ;S0  JFORM A T < 4X , 6 I 2 , 40A2  ) 

: i Vi  >*****#******Ii\rriALIZE:;  VAR  I Al  Lt  3 * *****  ••*>•**••  **"  ******»••  ******  ■ 

, ) ’ I A E = Vb*(  I +2  **  5+2  ** I 6 ) 

IOSS'  L , • = I 2* ( J2Y-J  I Y )+ J2M— J I M 
NUi-'Z=J2Y-.J ! Y 
!0v  ; O Nil,  Y=J3Y**J  I Y 
1 5i.,  .Uf-v=NUMZ+NUMY 
3930  J EF  Y = J 3 Y 
>0940  JErM*J3M 
> 5 SO  NU'MER  = 1 ?*NUM V 
0960  IF ( J3M. EO. I2)JEFM=0 
I 5970  Ir(J3«.EO.I2)JFFY-JEFY+l 
l vr  LF:-o=12*(  J3Y-JI  Y5+J3M-J1M 

I 0090  I.ENr  =LHN-LEflO 

II  00  LP=Ll  Nr  + I 

l IJIO  LN=LENF-I 
11020  LENI=LENO+l 

I 1 u30C**************** *****  END  INITT-I  *************************** ****** > 
l 194  )C 

i I !50C******»******r,tE  VALUE  of  POINTER  XX  IS  SET  to  the  TOP  Or  T:v.;  7 A'.  * 
I I )60C* ***-x********f  I LE  ********?***  ************************  **  **  **  ****  x *•»■*  % 

110  70  CALLSAVSCTI  2,  XX  ) 

! 1080  N EL=0 

ID90C+************THE  NEXT  ELEVEN  LINES  SETS  THE  VALUE  Or  POINTERS'  **■**•*> 

I 1 1 000*********+***X(  I ) TO  THE  TOPS  OF  EACH  TANK  FILE  Rr  CORD**********x**» 

MHO  I CONT INUE 

11120  RE  AD(  2 , b , El  1 0s*  4 ) K 

11130  IF (A. EG. I 500T02 

I I MO  GOTO  I 

I I I 50  SFORMAT(2X, 12) 

I 1160  2C0NTINUE 
I II 70  HACKSPACE2 
I I I 80  NFL=NEL+I 
I 1190  CALLS  A VSCT(  2 , X ( MEL  ) ) 

I 1300  RFA> )(  2 , S ) K 
I I 210  GOTO I 
I I 220  4 CONT I N UP 
I 1330  CAM ..SETSCi  l 2,  XX  ) 

11240  RETURN 
I I 2 SO  END 


iekh  kkk  kick  kick  k 


■ 


IN1T!  ( COM HON!'.  IT  ' . -t  . '•  1 V ! A LI  ■ I ON  S L.  ii 1 1 OUT  f !JE  j 


SMTP  is  ca  I i 1 , ii  usm , ' ■ • t •.  j . and  it  is  used  to 


obtain  L ie  nanii  of  me  component  ; i ie  ..i  . (>oj. 

records  in  me  component  ile  '!u  t . . ai  • ut, 
explain  the  methods  used  to  obtain  the  i 


.o  ‘he  desi ret 


. intuL  bel<  .. 


Example  1: 


CHOOSE  THT  '!  • P(  ;vg  , V ■ ■ 

THAT  YOU  WANT  TO  CONSTRUCT  A PIANC  RC  1 
TYPE  -1  FOR  A PIANO  ROLL  OF  AL1  CO!  F.\ 

1)  HULLS  POURED 

2)  HULLS  TO  MACHINING 

3)  HULLS  — MACHINE  COMPLEX 
u)  TURRETS  POURED 

5)  TURRETS  TO  MACHINING 

6)  TOR RETS  — MACHINE  COMPLE  E 

7)  TOTAL  PLANNED  PRODUCTION 
$)  TOTAL  PLANNED  CONVERSIONS 

9)  ENGINES 

10)  TRANSMISSIONS 

11)  TRANSMISSION  KI l S 

12)  POWER  PACKS 

13)  GUN 

lh)  GUN  MOUNT 

15)  GUN  MOUNT  KITS 

l'->)  GUN  & MOUNT  ASSEMBLY 


9 1 O 1 f,  1 11. 

■ ' 1 1:1  i 1 ‘ ■ I ~LV 


This  response  will  cause  the  following  components  to  be  included  in  the 
Piano  Roll  In  the  order  listed ■ 

1.  Hull9  poured 

2.  Hulls  to  machining 


«#»  . 


'un  and  mo  sat  assc,. 


4.  Gun  Mount 


5.  Gun  Mount 


Example  2; 


CHOOSE  THE  COMPONENT.  'M  -S  LLOft  i . LIST 
Hit  I YOI  tfANT  70  CONSTRUC  A PI  NO  R01  F( 
TYPE  -1  FOR  A PIANO  ROLL  OF  ILL  CGMPONEN  S 


HULLS  POURED 

HULLS  TO  MACHINING 

HULLS  — MACHINE  COMPLETE 

TURRETS  POURED 

TURRETS  TO  MACHINING 

TURRETS  — MACHINE  COMPLETE 

TOTAL  PLANNED  PRODUCTION 

TOTAL  PLANNED  CONVERSIONS 

ENGINES 

TRANSMISSIONS 

TRANSMISSON  KTTS 

POWER  PACKS 

GUN 

GUN  MOUNT 

GUN  MOUNT  KITS 

GUN  & MOUNT  ASSEMBLY 


This  response  will  cause  all  components  to  be  included  in  the  ordei  given 


above . 


1IV  ‘ I 


nn 

C Kocv,  COMP  j 
-1  Ml  I 

I C o»-t‘  --1 


— H i 


J v I lipjSp 


\UXiIZ)  V 


A, 


Y“-- 

v 

’ 

1 

1 

Badspo  j 

J 

1 

l 

j = <M 

J 

~1 

Call  , 
SAvscr(3,io>) 

j 

i F 

(M.IOtvi  f 

!{J4>Xy<+0*2)  i 

i— i ... 

Virile,  3, 
Ui)  l^i.lOiVl 

^ — 

ft) 
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H UlV-0 


t — - — 

''it.au.'  Ui' 

3»l,  ilo  . 


* . j 

J 


/ ,IJ  : ) i IM  I <il  i 

A ie+  A k A Ar  * k Ar*r  \ * i • 

i I . ) ) $|<  \ *(l 

II  iOO  I'hI  • i , "CO  . >'..F  .1  V l L:  1 1 A to  I • " 

•I  10  REAM  .CONI’ 

I > '0  I HI  ! to  AT  (Art) 

• . i callope.u-o.co  .:•) 

'I  I)  PEAK  3,2  ) I 
I I.H  - ~H)  “.Al'(4.y,  [2) 

11160  i ( 1,2)1 

***-■:*  ********  I r:(  i\  it  1 1~ 

'•  Ih<  I ..  .-..u EL  KIOTO'/ 


.‘.PONEN  >'  I : 1 : 


* A ★ * - t A * k * • - A ★ ^ • A 


)l  . !-H  I CL 


I.'  i 


■ I 
I 1 


I 


,0)00  1 


I I ‘A' 

It  I-. 

1 I l< 
t I I V 

ADI  !,  )l 
t > IAT(2X, 12) 

} A V :T  ( 3 , Y Y ) 


I 


1 f t 1 . <1: 

7,  ; r yi,  ; 

,-()■  -An////,  " pill  I?  L>  AN  ERROR  !•  : to!:  CO,.,, -ON  l 
. L = " , I A..,)  I-"  , 15  ,////) 

; A LI.  ':XIi 
' ' . T I . - J t 

NkXT  LINKS  SKIP  TO  t-IIKT  PEC.  92 

*-***.i  ****■»•*•**  POINTER  Y Y ****************** 

1 II =1  , 1 


i ' I i.-  t 


X*  * X **•  A • K * A 


II  i / J =i  > 

1 mJ**  * \ A-  Ar  * *•-***  A yrk  k •kJc'k'k'k'k  [iND  I ri  i I HrHr'A'Hr’fcH-HrH-x  'Av  .>■  A > A'k  ir*k  * k A*  •*  A r * A-  -k  -Ar 

11-330  PRINT21 

1 HO  ? I A f(  /////, 5X, "CHOOSE  THI  COMPONEHI  PRO  rOLLOWIN  LISI 

X,  “THAI  YOU  WAN!  TO  CONSTRUCT  A PIANO  ROI  . • • . , <, 

I I -O'  A",i  -I  FOR  A PIANO  ROLL  Oh  ALL  COMPON  I-  IS  »,///) 

I I 0/0  6C0  i TINUE 

o***x*********SI  IS  VALUE  Oi-  POINTER  fO  i TEST  LINK  Or  RASH  i ' • ' j » - .. 

It  - Rt A (3,5,END=9) I 
i .O  IH  I .EO.  I )00T0-3 
I I 010  oo4  ) h, 

I I >20  ' CONTINUE 

I I ->30  a n ace; ;i 

I (640  ,J=J  + I 

I lrt‘,0  CALLSA/SCK  3 ,Z(  J ) ) 

I | ■ r.oO*  ******  ******'^>-\  I NTS  OUT  ACTUAL  JO'VO.O-’N  IS****  *★***>•  ******  ■*+■*•*  *******- 
I i -'7  ) LA  ; ( 3 , 10)  (L(  I) , r = l , IDI  VI  ) 

I I 6 6'  / I OrORi.IA  f ( I 6X  ,40A 2 ) 

I 1690  PRINT  I 1 , J,( L( I ) , 1 = 1 , 1 DI VI ) 

11/00  I lrORHAT(5XtI5,")  ",40A2) 

11/10  G0T06 
11/20  9 CONTINUE 
I I ISO  PPINT28 
.1/40  ?8rORMAT( ///) 

117  o JO  121  = 1 ,120 
I / M I PL. ( I ) =0 

i //,;  k **********  **R|- A) ) IN  i)r  > I RED  COMPONENTS****  *********************  + ***• 

, /Ho  RbAi),  (L(  I ) , 1 = 1 , 120) 

I I / 90  I r ( I.  ( I ).NI  .-I  )00'f0  I 3 
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< DO  I '11  = 1 ,J 
I H | (I  I 4L  < I ) = I 
i I=f+1 
I L i i ) =0 

i 3 CON  i I NU 1: 
i I 1^1 

i * oO  NLiMO 


END  INI  I P -2  *********  •••  >.★****  ***•  **•'?*»•.« 


*********** **OhTS  /CD  TO  DESIRED  COD  PUN. ENTS  THAT  If  Y<  I ) )I: 

****  ********  TO  l H t.  r I ROT  RECORD  TO  RE  PUT  ON  PIANO  ROLL,  AN 
• )C*** ********** IS  rHE  NUMBER  Ot-  C0MP0NEN1  TO  BE  >IF]  ON  PI 
: Ih(L( I).LE.O.OR.L(I ).GT.J)G0T0I6 
11930  i. l i)=NED+ 1 
I'M  i I = L<  I ) 
i 19E0  Y v i h ' ) ) =Z ( ! I ) 
ii96o  r=i+i 
11970  0010! 6 
1 . )tiO  I 6 CON  i I NIJh 
11990  RFrURN 
12000  END 


Jl 


1NITN  C ONTRACT  t'Ti,  INITIALIZATION  dUb ROUTT Mi; 

Subroutine  1KITN  is  called,  i I •jsc!  , iTor  the  main  t;rai;.,  and  it  is 
used  to  obtain  the  name  oi  tin  contract  Tile,  open  . • and  set  pointers 
U the  first  line  oi  each  record  ! • the  : ^nlia  '«  that  .responds  to 

a desired  record  in  the  component  file.  A samp ! t put.  rom  thi* 
subroutine  is  shown  nde 

CONTRACT  FILE  NAME 


Subrouting, 


j PL  ax!  File. 

I rO<s>\e 


CAUL 


f^M  I 

i R<uus(4)t 


Error  Ir* 

Cbh4ra^ 


iftacksp&oe.1, 


ReaoC^O  K 
iUt12)  1 


CALL 

S^Tl'm 

* t 


CALL 

‘brrscT 

W,») 


ISWSCTt^ 


OO0******v  *****+  **  kkkk  j , ^ ! i J ' } •*  k k kk  k X *'<{-+■  k >.  *.  k k kk  k-y  k A k*  k • k . a >• 

! '20  SUBROUTINPINITu 

• I kkkk  *******  **Sl;TS  POINTER  IN  CONTRA  Cl  PILE**’  ‘.' *******  kk  kk  -kn*  ****** 

I 2040 $RRC 

•■0  OR  I M , "CON  1 UACi  PILE  NAME" 

PLA  ) I .CONI’ 

. I PuRMAT ( A6) 

20  0 CAI  LOPPNPU  ,C0uT> 

I 2090  REALM,  2)  I 
I 2 I n i 2P0P.v,  AT  MX  , 12  ) 

12110  PEAD(  4,2)1 

I 2 M / IP  ( l . EL  . i 1 1 2 , AN  ) . I . iiE.  0 ) G0T04 
. c 30  7R  < INT20,i<EL , I 

I 2 1 40  20i-0RMAT< ////,"  THEIR  IS  AN  ERROR  IN  THE  CONTRACT  PILE,  NEL=" , IS 
1‘21SH"  AND  !=M'J(////) 

I 2 1 oO  CALL  EXIT 
12170  4 CONTINUE 
12180  00311=1 ,1 
12190  3READ (4 ,6  )K 
12200  BP'ORM  A T ( 2X , 12 ) 

1 2210 CC ****** ******SETS  VALUE  OP  ZZ  TO  riRST  RECORD  IN  CONTRACT  rTLE****** 
l 2220  CALLSAVSCTI 4 ,ZZ ) 

12230  DO  I 00 1 1=1 , NED 

1 2240C*************|- 1 NDS  NUMBER  Or  I'th  RECORD  TO  BE  PRINTED  IN  PIANO 
1 22b 0 CALLSETSCTI 3,Y( I ) ) 

12260  READ ( 3,44)11 
122  70  441-oRMAT (12) 

I 2 / 80 C ************  *PT  MU  S COOR.  RECORD  IN  CONTRACT  r-  I LE ***********  ********  *■ 

1 2 ’90  1 2READI 4,44, END  = / ) J 
12  300  IKJ.NE.  IDGOTOI? 

1231  i ' ACKSPACP4 


/ 3?0C* ****** ******SP. TS  VALUE  OP  POINTER  x'Z<  I)  TO  COR1;  PONUl.sO  RECORD*** 
^ 13  ) CALLS*  73CT ( 4,Z(  I ) ) 

2340  CALI  >PO  SCT(  4 ,ZZ  ) 

23DO  I 001  CONTINUE 
2360  RETURN 
2370  END 


END  INI  ITS, - 1 


■ * ■*  **  ; * + k * * 
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HEAD  (Output  i 1-.  Initial! /.at ! on  Uout.ine) 


Subroutine  HEAD  is  ca ! I -i  i rot  (in  ■ i .,  program,  : is  used,  and  it 

obtains  the  i a me  ot  op  is , an  1 2 prints  t!  ■ healer  data  on  the  output  til*  . 
T '.e  routine  makes  s . ve  ra  1 checks  on  ch<-  r i • ilc  a re  Those  cnc-cks 
are  shown  in  the  example  be K , ; 

OUTPUT  FILE  NAME 
9 ROLL 

THIS  FILE  IS  ALREADY  OPEN  YOU  CURRENTLY  CAN'T  USE  IT  AS  A 
OUTPUT  FILE,  TRY  AGAIN 
OUTPUT  FILE  NAME 
? DON  3 

THE  FILE  COULD  NOT  BE  OPENED.  IT  MAY  HAVE  A PASSWORD 
TRY  AGAIN;  CONDITION  CODE=  10 

OUTPUT  FILE  NAME 
? SAU3E 

THE  FILE  ALREADY  EXISTS.  DO  YOU  WANT  TO  OVERWRITE  IT? 
ANS.  YES  OR  NO. 

? NO 

OUTPUT  FILE 
? EDIR 


1.  In  this  case,  the  file  "ROLI."  is  currently  in  use  and  thus  cannot  be 
opened . 

2.  In  the  second  case,  the  file  already  exists  and  cannot  be  opened  because 
it  has  a bad  condition  code. 


Condition  code  - o:  Implies  incorrect  access  privileges  since  this  happens 

only  if  the  output  fiie  is  on  another  user  number  than  the  one  the  program 
is  run  on.  This  condition  code  should  normally  not  appear. 

Condition  Code  = 10:  The  output  file  has  a password. 


t 


< 

'■ 

1- 


Ccnditi  1 Code*  = : incorrect  Library  name.  „v  . f.u  only  condition 

rode  that  should  occur  is  10. 

3 in  this  case,  the  file  already  • ists  and  t it  possible  to  overwrite 
what  is  currently  >n  tin  tile  by  answer i , "yts1-.  NOT!  • If  this  op'. '.on 
occurs  and  you  do  answer  "yts",  whatever  . ■ u>  u Ly  on  the  lie  will 
be  dcs  t to  you . If  you  answer  "no",  the  program  will  request  another  file 
name  . 

*.  In  the  last  case,  the  output  file  was  not  in  use,  and  thus  the  program 

creates  it. 


*»>  . . 


i 

» 

i. 


( 


. * A * * *■  *•  jc  * * A ' ' • v , . ‘ . f * ( ) ^ ^ l 


xi  si  r i ; 


I'd!"  ) ‘ MJT  r ILt-  ****  * * * . 


\ . '2  ) i o i >i  -o 

i i'i  rr  i.i, "n  ; l phi  i lL.r:  NA;-'i  " 
i ' - 4 ) ri-adi  , >un>ur 
I : ‘ 0 CALL.OPENF  (6, OUT . ’Ij  r , 7 . "S  IV  2“ 
i fjo  t i-  ( is.E0.2>0olo i 

' • 7 j 1 1- < r . je.  2 > gothic  i 1 

• • Uv.)  , •:  I . i .‘‘THE  f-TL  ALREADY  EXISTS.  >0  YOU  .o  . 10  OVtr.WRUfc  It?" 

I 2490  PRI  1T,»A  , '.  YES  DR  NO." 
i ’ 00  LA  i.i  C 1.00-1  ( 6 ) 

' ! ■ REA  1012,  [ 

1 : . ■ ICI2F0R  *A1(A3) 

If  < I . , "Y£;S"  ) jl)T0  1 

‘ OT  VOIOI 3 
i.  1 01  I CONTINUE 

Ir  ( o!  .'OOorolOM 

i 1 , " r:  1 1 . hi  Li-  10  ALWhA'iY  OPEN  YOU  CURRENTLY  GAN ' f UCE  Ii  A1-  A" 

•'  1 L , "OJ'i  PUT  f-  I LE , TRY  AGAIN" 

IR-jV  ) i Ji  11013 
12600  I OMCOnTMtUF 

1 IT, “THE  FIL  :o  LO  NOT  BE  OPEN  El  . Ii  MAY  HAVE  A PAS 

1262'  'Go  .r,"TR/  AGAIN;  CONDITION  CODO'Mli 
I 2o3G  GO  fold  3 

I IOC* ******** ****PR INTS  OUT  FI  LI  HEADER  ON  OUTHUi  r I LE*********  *★*-•*■***  *» 
12660  I FORM  AT (A6) 

I 2 660  a RI  TE ( I 12 ) 
l?o/0  WRITE!  I >2) 

I 2680  PFOIM'AT!  /0(  "*")  ) 

12690  W P I i F-  ( 1 ; 3 ) 

I../00  3E0RMA  f ( ///  ) 

1 2 / 10  ^FORMAT ( I 4X , 49 ( "*" ) ) 

5F0RMAT ( 1 5X  «"MoO/M48  LINE  OF  BALANCE  PRODUCTION  REQUIREMI 
I 2 /JO  WRI  TE<  114) 

2/4 0 ,vRIih(  I JO) 

I /SO  WPI  i F ( 1 14 ) 
l ^ 760  if  ( i 1 1 /) 

12/7'i  17t-Oi.  >A  rt/) 

K.‘*  ***********♦: ):  ff-Ri'i  I -NFS  NUMBER  OF  DAYS  IN  MONTH  ***»  ******  *x  *■•***•*»<  . ■ 
12/90  I -J  AM 

I i < I .EO.  I .OR.  I.  HQ.  2.  OR.  I , EG. 5 .OR,  I.  FO.  7.  OR.  ! . HO.  3..R.  I.EO.  I 2. 0-  . 

I 2dOM. HO.  12  ) IMTH=3I 

I •:?•)  I r ( I . H ) • 4.  OR.  I . F0.6.0R.  I . EQ.9.0R.  I.  EQ.  1!  ) I MTH=30 
12-.30  f =J3Y-< J3Y/4)*4 
I.  4,;  IF  ( I . “2.2.  A.  ' ' . r.  .F'0.0)  IM1H=29 
> If  < I . l-  j.  2.  AND.  . NE.O) IMTH-2H 
I ’ 6 r I 1 F ( I « 1 6 7) J 32  , IMTH.J3Y 
' /')  I 6 7rORM AT(  I OX  , "LAS'i  UPDATE  Or  REPORT « " ,2  ( I 2 I 2 ) 

I ■>■■■■  •'  CALI.DATIMH!  I , DO,  DA  1'F  ) 

I ' -.90  I r ( FLAG ( 6 ) ) WR I EEC  I ; 1 0 ) (DATE ( I ) , 1=1 , 3 ) 

I Or  OR  M A f ( I OX  , "DATE  OF  REPORT  t ",3A6) 

I ->  J . 0 I F ( rLA'J  ( / ) ) r(R  I f E(  I » 40 ) TOD 
i 2920  40FORMA f( IOY, "TIME  OF  REPORT t ",A6) 


I 


60 


i • so  »■  hi  ih(  i ; n ) r am-: 

■ a ' i h-o  :mat(  mx, "i  ank  fill  name*  " , a 6 ' 

’v‘.  ) IF(  .u-.H'.FLA  >(  II  ))0l)T0lrt/3 
) rtPITF  ( I ? I 2)  COOP 

I2rOP.vlAT(  10X, "CUMPONUl  i t ILF  NAME*  1 , 

Ir  ( .L\.  ■ C 4 ) )NRIi E<  I 5 I 3JCONT 
■ Mi  ()!•  MAI  < IOX,  "CONTRACT  FILE  NAME  » »,A6) 

I ■ j API IF ( I ( I 7 ) 
i I > DPI f •( I I 18) 

< ,'j  i Hr ,\T(  iox,"'.()i;i>oni-:nit>  included  in  mis  line" 

3 m/,  IX  ,"Oi  A I.  An  GE  PRODUCTION  REPORT",//) 

I 3 ' 1 ) <0201  = 1 ,.iLI) 

MU  : ALLOETSCTC  3 , YC  I ) ) 

. \ H 3 , 30)  (L(  J)  ,.J=I  .ID!  VI  ) 

3.; 70  .1U-0RMAK  I6X.40A2) 

I J.A-  WRIIi-t  l?j|)  I . ( L ( J ) , J=  I , I D I V I ) 

I OS  ) 3 I rORMAT ( I 3X,  I j , " ) ".40A2) 

I 3100  20C0NTINUE 
III  I 073C0NTINUE 
I 31  ?0  /, '?  I TE  ( I 53) 

; • I 30  HRITE C I ; 2 ) 

13140  R FI  URN 
3100  LED 


KOL.LT.".  (Calculation  Routine) 


Subroutine  ROLLER  is  > 1 1 • 1 i tin  main  loutiu  and  i:  calculate!-  the 
total  required  lines  of  th  £o  It  also 

smooths  the  total  required  line,  i f de-si  r-*d.  It  the  covponent  i1*  not  to 
be  smoothed,  then  this  routine  prints  out: 

****ii**»*******)i**»<***l(**)(*»** 

COMPONENT;  POWER  PACK 

*********  ***************  *****  * * 

For  each  component,  the  routine  requires  no  input  from  the  user  in 
this  case.  If  the  component  is  smoothed,  then  the  sample  run  below  will 


demonstrate  how  to  use  it 


- X * k X X X * X X ,*  * X * X ft  X X ■ ft  X - X t X * ft  * * r ft  - ft  * * ’ * ft  A A a * * * * X ..•  A a * * ^ ft  ‘ * * * ft 


"HE  '.'UR HEN'!  COMPONENT  TO  BE  EMC  "nr.:. 
POWER  PACK 


***«:•  *##*#«##**#  * *:<###*  * ^ r k * *♦***«>  r *»  i if  •'  * **.••*••.•  « ^ . 


TRIAL  COMPONENT  SCHEDULE : ^ 

RST  : I 976^ (lj 


2V 


J 


F 


M 


— v 888 8 888888888 b 

<*5,7*7  75  75  75 

V.  55 


51 


49 


A 

M 

J 

A 

s 

0 

N 

58 

63 

67 

7 5 

75 

7 ^ 

75 

7 R 

75 

75 

85 

75 

73 

65 

6C 

^8 

46 

43 

38 

0 

0 

DO  YOU  WISH  TO  PRINT  THIS  COMPONENT,  YES  OR  NO. 
? NO* 


© 


ft  - ft  ft  ft  . ft ~******X****X*X*****************X******XX** ft ********X* *#***>/  + ft 


•1COIFIED  MAXIMUM  PRODUCTION  SCHEDULE: 


M 


888888888888888 
75  75  75 

75  75  75 


1976 

A M 

J 

At — 

J 

A 

’’"s'  0 

63  70 

7C 

75 

75 

75  75 

75 

75  75 

75 

75 

75 

75  75 

75 

75  75 

75 

75 

75 

THE  SCHEDULE 

IN 

THE  FOLLOWING 

FORMAT  Y Y , J , F , M , . . . ,N,D  . 

CARRAIOE  RETURN  AFTER  LAST  CHANGE 

. 76  v0 , 0 i_Q  , 0 , 0 , Q,,  r 5 _i~  5 , - 5/ 

©f  CD 


ft  ft  ***ft****x**x******#*******************************x****x* *********>  . . * 
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TRIAL  COMPONENT  S 

CHEDU 

THE  FIRST  YEAf  IS 

••  19 J 

(D 

J F M 

M 

J % J 

s 

0 

M 

8888888886  -886  ■ 

c~~, 

(-  3 

7C 

70 

~p 

75 

75 

78  75  7‘ 

7 ^ 

f J 

7C 

i «> 

75  75 

7 3 

65 

60 

56 

57 

55  51  49 

^6 

43 

38  0 

Y'.»  WISH  TO  : ;<  INT  Tii  13  COMPONENT,  YES  .it  fvi  . 

NO 


t**,iH>HHUi(«*jHi«**iiattH4H*******S**S'  ■ ■ ;■  * # * * Jf 


MODIFIED  MAXIMUM  PRODUCTION  SCHEDULE : 


THE  FIRST  YEAR 

IS:  1976 

© 

J F M 

A 

M 

j 

j 

(a 

S 0 

N 

D 

888888888868888 

63 

70 

70 

<70 

7C 

7?  75 

75 

75 

75  75  75 

75 

75 

75 

75 

75 

75  75 

7 5 

75 

75  75  75 

75 

75 

75 

75 

75 

RELATIVE  CHANGES 

TO  THE 

SCHEDULE 

IN 

THE  FOLLOWING 

FORMAT  Y Y , J , F , M N , D . 

-i-.  I RETURN  AFTER  LAST  CHANGE 


PAD  S 'HEDULE  — 

IT  GOES  BAD  ON  7/77 
AND  IT  RECOVERS  ON  8/77 

YOU  MUST  ADD  AT  LEAST  2 UNITS  EARLY  IN  THE  SCHEDULE 
UNRECr”ERABLE  SHORTFALL  OF  0 UNITS 


^ a*########*#*##***#*##**###*##*#  #######*####*##  a#*###*#*#**#*####**-,  .v 
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t ' -ul  - ’ 


-» /*.  i .m  r . r 1 m. 


TRiAL  COMPONENT  ; D'  '• 

1 ' FIR:-  f y A”  I.-:  15;  /'lx 

\i  t-y 

J F M A 

888888888888888  *.}  dp  7 j 

75  75  75  75  7 75 

55  51  4 5 ;jf,  if- 


Y ' WISH  TO  PRINT  'THIS  COMPONENT,  YE: 


- * * * * tt*********************************  ******* 

MODIFIED  MAXIMUM  PRODUCTION  SCHEDULE: 

THE  FIRST  YEAR  IS:  1976 


J 


M 


888888888888888 
7 8 75  75 

76  75  75 

0 I / HA „ _ 

. . . 
'ARRaIGH  RETURN  AFTER  LAST  CHANGE 
. 7 1 , 0,0,0, 0,0, 0,0, 0,2  


63 

68 

70  70 

70  7Cv  76 

75 

75 

75  75 

75  75  \ 76 

7 c 

75 

75 

75  75 

75  \ 

TRIAL  COMI GHENT  SCHEDULE: 
FI RSI  : . rs : 1971 


J F M 

A 

M 

J 

J 

888888888888888 

63 

68 

70 

70 

75  75  75 

75 

7 5 

75 

75 

55  51  '19 

46 

43 

38 

0 

WISH  TO  PRINT  THIS 

COMPONENT, 

YES 

OR  NO 

bO 


YES' 


‘K*****##*************#*########**####*##**^^^^^^^^^^ 

65 


'v 


: otes  on  ROLIJiK  Output: 

1 1976  is  the  ini  t5.-l  yeai  in  (he  schedule,  an-1  1 ie  years  in  this  schedule 
are  li>76,  1977  and  1673 

2 883 888  months  in  current  year  that  at.  in  Lhc  past,  in  t i is  cast 

lamia  ry , February  and  March  1976. 

3.  This  schedule  is  a tentative  total  required  schedule  iot  the  future, 
in  this  case,  it  runs  from  April  1976  to  August  1978 

* !•  this  tentative  schedule  is  as  you  desire,  type  "y<  .•■therwi  s. 

type  "no". 

j.  The  modified  maximum  production  schedule,  the  first  time  thru,  it  is 
I!.  sum  of  all  suppliers  maximum  produc  ion  schedule, 
t Toe  vear  that  is  to  he  changed  in  this  case  is  1976 

7.  Type  zero  for  the  months  in  which  there  is  no  change.  in  this  case, 

January,  February,  March,  April,  May  and  lune. 

8,  Ha.  Type  in  the  relative  changes  to  the  schedule.  In  this  case,  the 
maximum  production  schedule  for  July,  August  and  September  of  1976  is 
changed  from  75  to  70. 

9 \ new  trial  component  schedule.  Note  the  changes  from  t ne  first  trial 
component  schedule 

10  Note  the  changes  in  the  modified  maximum  production  schedule. 

U Note  the  change  in  May  1976  from  70  to  68. 

12.  Because  the  production  schedule  could  not  be  met,  subroutine  KOLIXR 
called  subroutine  BAD. 

13.  h'olo  the  change  to  the  modified  maximum  production  schedule 

66 


.;p. 


•*i"rr  -Wf  Iipi  ill  • '-7  • ■ ' 

ot/or  our  me  D KU 


I ' I 
l •»  vjni; 

i ■ m ><: 
i 4S0f : 


Note  the  c!iatu;e  n Sep  ter.:  i i " ti  ’rout  7 ' t , . units  r month.  .1 
wi  ti.nl  added  10  units  *>  Soptembei  1976,  lu  nnxi  t wo  rid  .3 1 i 1 1 col)  be 
units  per  men'll,  because  of  the  original  m 'nun.  schedule. 

15.  Note  the  change  to  the  trial  schedule, 
lb.  Print  the  last  trial  schedule. 
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,r  iK.: 


'<>1  1 1 ! | T ,i  - /\i  > 

* * * l'  ! | ')  , Ji, 

‘ V . V**  ******  l|  )[|  L;  ] - , ) 

+ -*■  * * ***  * * > * I . ) .1  t . Jl  II 


1 1. 1-;.  I|  \ iv.Ni  A,  J \ 
n Ml  ..Hit'll  nil  1. CiittbUL  I. 

'.I  "Mi  l,  It.  .•  . ■ i l ....... 


Subroi  tine  ROLLLR(lFE) 


SPI  I 


' r>  1 1 1. 1 ; ng  Kon  t i 


18>U,3)=0 

IB  13,4)-' O 
ITPII^O 


H+LENO 


LEP’lEKKHlttfc) 
l£F  -l£Wf-UEtK) 


iTPdWWiT 

i*X>/vb 


IB  (1,3) -IB  III) 
♦UUfciuifcBI 

/ l(JO 


_n_  : 

M 

I>iewo 

M+l 

ui)  >]<m> 


UK)X 


lujvujh 

LIKHCT(K) 


iaewo 


|iB(i^)a(3) 


r'  -K, 


7/**- 


ina  I 

! ScV  «.^u'e 


XiVO 


■ 


)"Do  KooVJisk 
! To  Prn\-i  j 

i 5cKeA«*  J 


r qviJ  I 
Li*3l 


//  7«V')  | 


Sc>'t<UI<_ 


I Pr.*>-1 

I __ 

L— c 


ie-0  Xua) 


s 

j^jeiXj  £T\ 
<»*•  j?>®y  / \ -y 

? , ' 

K*tte-  3efy  Us 

>*  -3EFmi 


3H_ 

*X-  K+  I i 


3=0 


k>  i v 

X X 

v_ 

4 r 


M-K  i ! 


"T 


J I 


V r * 
K _L 


» 


Mr 

j 

r- — * — 

3** 


jj>KK. 

M+i  | 


F 


7 ..  r / 

j - U tri 


J 1 


r 

j 

L 

j 3Ct  (x) = Jcra)  j 

1 W-QG) 


L 


L 


(k) 


73 


n i <i i ■' - j i : < i 'boll:  ,j(  r h f ) 

, I • * - ' kit  * ** k-kf  ] P L * • ! iGHF:  L.U  I ' ; » ! . . N **  * k't 

- A**a*AA*+  f ¥ i ]fif>  ‘ ' I j j f r • I *■  . A * * / W jk  k k kk  k * k * * tat  * ■*  kk 

l •:  I yno  HJI 

I < ‘On  CALI..'  I i GCT<  1 , Y(  I Pi-  J ) 

I ; I !■  FA<>(  i.  I ) I i ,.vj  , ( T ) , I = 1 , I V I ) 

I i7D  IH>lC'.\i'(,M4X,  M)  , 1 

I <230  PRI NT200 
tmu  it-(  ,i\f)f.H.AO<  i ) ) « ;c ) i o ‘4 
I 32b  ) 20a  ifOil’  A r<//,  /.■>("*"  ) ) 

I 060  • ,’[  VT2,(!.<  I ) , I = I , 1 1 ) I V 1 } 

I < ' / Pr  -Art//,'*  r ;F:  CURRENT  COMP'OlvH  Jj  D • ...ooi  u.)  i .*  ", 

I J2r  \/ , / X , 40  A 2 ) 

I ’1290  4rOP'<UT(/> 
i C3t  .>  ooroi  ; / 

I 3 310  3Co.<T  1 * -.J  i- 

I . ' ' Pniifi  ! s I , ( F.(  I ) , 1 = 1 , 1 !)I  VI  ) 

I •’  ..  1 . •••  I ft  1 A ■ < //  ,‘>  X , "COM  P0,<  iM  t " , 40A2  ) 

I 3 MO  CPF  .34 

'G* *«++*  + ★*•*•★  *-*[ 7,  AOS  Li:AHl'I.AkS  AND  PbRCEN  <’A  r US  r i i AGO  . . if 

I f . ; ' > - v k y *.  kk  . * + jtJ  - ' ) 1 [' 1 1 j-;'  C(  )M  PON  I:  f J*1  t~  I [_  F * A x kk  kk  kk  j k k - * kk  k k k ¥ r *■*.<■>* 

13  3/  ■■.(,,>)((  LF<  [ ) , I..PIJ ( i ) ) , 1 = 1 ,NF:L) 

: ' >r  MV  A 1 (IX,  I 2 ( F 2 , 13)) 


I Ml)  2F  I • < I )=c 

| ' £ k k k k k k k kk  k k k k kn  kk  kk  k k [ ; ROLL  I R — I "A  A kk  kkkkkk  Akk-n  . Akkkkkkkkkkk**/  r > 

I 34 300 

344  ‘*************iF,J,,4  IS  13  IF  NUMBER  OF  SUPPLIERS,  AH'.)  THIS  DO  LO  P .V I LI 

I ■ ) '****  + ■*»  kk  kk  kk'!’  A ) THE  DATA  I- ROM  THE  GO  .'il’Oic  il  i’  F I LR* ********* '•  • **  > 

I 3460  !)0  IOK-1  , SUM 

I 34/0  *************11'  is  THE  ACTUAI  INITIAL  FOR  THIS  >UPpLI ER ************* 

I * l 1 IFCNIM.HF.  I )RI-:a0(3,6)  I v' 

I ( 190  c, FORMAT!  4 X , I 4 ) 

I V>OOC* ************  IP  J • THE  SUM  AM.  ACTUM.  iNITIAI  i-on  , HIS  Co.  * 

I y,  IOC  ******** -****PLUS  A IX  PAS  I'  ACTUAL  PR0DUC1  ION  FOR  f.ilS  CO!.' 1 PO  . F-N  T **  * 

I Jb20  I P=  I F’*  1 I' 

I r,3oC*************R  - An,  L , THE  PA'  F PLANilb  ),  NOT  l !E!  I RE,  A «!)*****  • 

I ,-,/t  o".  *******  ******  I Cl  , FHE  MAXIMUH  PRODUCTION  RATE  FOR  THIJ  PL  1 1 
I 1SC0  PI- A ;(  3,7)  (L(  I ) , 1=1  ,LPWO) , (ICT(  I ) , 1 = 1 , LbNF  ) 

I 3 ir>  ) /t  opWAi  ( 4X,  I 2 I j ) 

I T) /L. ***********  **P  ■ A! 1 , I.  , FHI'  PAS  T ACTUAL  PRODUCT  ION  FOR  iHI  >UPPLI: 
i c C •'!••  < i,  /)((.(  1 ),  1 = 1 , LFHO ) 
i • . / . •)•'/=  |,  |J  ) 

I '3600  ■ I — I P + !.(  I ) 

I 36JO  !>UvI  = 1 ,1114- 

I 6>  nc* ****** ******  I CP  IS  IMP  SCO  Or  THE  MAX  IMUN  PRODUCTION  A Tr. 

) C * ****  **  ***  * **  A I..L  SUPPLIERS,  MONTH  :,Y  MONTH  ***************  ********* 

<0.1  ) <;r:p(  I ) = ICP(  I )*ICT(  I) 

I 36SO  IOCONTINUE 

I 3 ' c -o***  ********  **L  .0  ROLLER— 2 h**  ******  ******  **  ****  ************  **  ♦•*•***  * *•• 


- -j 


75 


■ »•  >.•  h ;>•  . 


k ■;  . . A V a ********  ***  * * * **  * -■ 


■<■  k a kk  * x ■<  n k'k  ★ ★ »•  * **  *-■ 


) -()*'  > I - I , I ?y, 

369  ) I!  ( i , n=  i 

3/00  i r-(  i,n  =o 

3/10  231  i p c i )=n 
3/20  I 1=0 
3/30  I EC=0 
3740  D()20K~I  ,NEl. 

3V50C******  ****  i IS  TRU  . /EHICLh  DOES  NOT  USE***** 

3 / 0 ' ^ „ * * *1  « V , V A k A J . i i .I'l  I . :--n;  . k ,.  -A- ‘A  < ■-  - ,,  k * **  *•■**  ****  **  irk  it  * *****  * iel 

3770  H-(II  U>.  1-0. 99. 01?  I PU  (K  ) . r.0,0  )GOTO20 

3 /HOC *************  , ' [•  v.  i ****** ** *********** 

3790  LL=LPU( K ) 

, , A . . I : I J EACTOR • •••**  **  **  *ic  a*  *★»-***  *- 

3010  IK <=1 00- LL 

3820C******* ******  0:1  POINTER  TO  VEHICLE  CONTAINING  CO.,:  PONEN'T  ********* *** 
3330  CALL.GEi  ECT  ( 2,  X ( K ) ) 

>40C*** **********  '»  oi  • •<:  TliO  IN  HAST  PLUS  LEAD  TIME  ***************  ****** 
'I  LENO+l  E (K  ) 

3 , 6 ) C * * - **  * * ****  * o M / j j]  ,H'N  T!  E ( . : THE  pROGRA"  *********************** 
3o 70  LEr=LHUE-LE(K ) 

3C 80  1 81)=!. E(  K ) 

3390  REA 0(2, 2S ) I TL 
3900  I T=  I T+  ( Hi  * LL+ 1 1<3  ) / I 00 
3910  1 8C=HU>(  ITL*LL+I KB ) / I 00 
3920  ’BeORMAK  8X  , 1 4 ) 

393  ) I E ( LEE.CT.O  )G()T()  1 I 

3940  PRINT, "ERROR  IN  ROLLER,  , l EE  = " , LEi-  ,K  , i Pi- 

3930  CALI. EXIT 
3960  I I CON  TI NUb 

3970C*** *********-  8 )K T 3Y  ‘./'l-  TH  PLA  i.0:,:0  J iCL  LEA!  1 HE  IS  L »**  *♦***». 
3980C* ******  ******M0  NT  i /’  • Y J TH  PL  ANNE  1 IN  FUTURI  I'1  I Cl  ************** 
3990  REAI(2,  /)([.(  I ) , I 1,120  ,(  ICT(  I ) , I =1  ,LEb  ) 

4000  DOoOb 1 = 1 , Lb  NO 

40  I 0 J = I+I  B!) 

4020C* ********** *-*S.  i Oi  ,l  V Hi 3 PUSHED  BACK  BY  LEAD  il  l:  .-ILL  !-.•  1 ***< 

40300  *********  ****>!  I >'i  ,)i ' I C ' ! .0  ' ***  >•  *****i-****** ******  **  ****  ****  **  ,*  + *■» 

404)  INC  I , 3 ) - 1 ( 1 ,3) +( L( J) *LL+IKB)/I 00 
4080  OOBCONTTNUE 

4:  90  nn„  II=|  , I . L- P 

a:  L/0  C ********  * ***  *T'  )T  A L Oi-  ALL  VEil  REQUI  REMENTS  IN  PAST  INCl  LEAD  TIME  >. 
4080  IT=II  + (L(  I)*l.L+r:  0/100 
4090  2 I CONTINUE 

4 100  1)0604  1=1,1(30 

4 HOC************* V ,1  PLANNED  BEFORE  LEAD  TIME  WILL  3E  COMPENSATED  LATE 

4130  604IBC*IHC+(L(I )*LL+IKBJ/IOO  **** 

4140  0022 1 = 1 ,L  EE 
4 I 80  J = I + LFNO 

• 1 ' C********  i L FU  QUIREME!  LOf  IS  } }(*,?)  AND  ITP(*)  ***, 

41  /O  IR<  i , 3 ) = 1 1 • ( J , 3 ) + ( rcn  I ) *LL+TK8 )/ 1 00 
4 I 60  ITP(  I )=  I l'P(  !)+(  ICT(I ) *L(  * IKH ) / 1 00 
H90  220ONT I NiJF 

4200  20C0NITNHI: 

42  I OC* ****** ****** v ******  END  ROLLER  3 ********************************** 


>'  ,i\  , l Rt="  ,LEE  ,K  , I PE 


WILL  3E  COMPENSATED  LA i L 
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■ » * ********* (.j  f 1 1 a;,  -orfi  ■ ; or  iii->  rcn  A;  i «, t.  "Mi .i  it  i‘i,  i-ui  < 

a A * . \ k *t  \ k ★ k ★ ir  A j ‘ j ' * *r  A * A * *•  ir  ★ k * tc  **r  A * -k  * «i  k * r ■'  * -V  * a * A * * A ★ -*  * A k * * * ★ ★ : • -■ 

I 5 '40  f *IP-IY 

* *■*  i *****  ****/;  >'  1 1 1 - OUi  ,)U  ki’LLTi  JO  r I 0 • i i.  J Is  , I n-  I ‘ m 00!  A D ******* 

I 4 20  i i <042  I = I , 1 i Nr 

14.  / II  ( 1S.JT.  I I > ( I ) >i30l  )-1  1 
M?.'  ; I. < I ) = I 1P(  ! ) -IS 
i 4 2 . ) IS---0 
I 4100  GOTO  4 1 
I -tip)  1 1 1 :jsIo-n P ( I ) 

) ! ;■  L(J)=o 
I >13  ; 4 2CI)NTINUH 
I ■ Hi  ho  y ; - | , L|  ;,f 

•****★********«,;•)  VI-  i 1 ! ! . HIRST  ff'NTATIVf:  SCHEDULE  Fo  i ;{  *,  4)  **•*  ****  . . 

I 4ii  i I Cl  ( 1 )=KF(  I ) 

*****  • *******m  a: • > !.  Is  Till  RBJUI REMENTS  SCHE/WLu  **************** 
rn<  ikid 

r!  A ( ->-.<•  A i.  ’ 1 . 

***********  ******EN|)  ROLLER  4 **********..  * *************  **  *■*■•#■*  ***■ 

14410'; 

I4420C 

. 1 44  < i , iur  rout 
! /i  4 400 
I 44*>;)C 

:******  ******i~i rst  we  coiapari  the  ox  pro  ;h  the  r quired  pr 

1 ' / > 'J  a *»■  ■»**•:****  **  i ' I : LA-  i ODhTH  i ( ) r I R S 1 *************  a. ******  **■  *>■  ******  * 

I 4 4 h ) !)0:ji  '■KK=  I , Ll< 

| 4490  K=LP-Kr. 

’*  * '*********  via  X PROP  rfFATER  i’*  I AN  DEQU  I RED  *******  *+**«**>*  * ****** 

• i It-1.  ICF(  K ) .UE.  L(  K ) )GOT()SO 

! V>20  J — k — 1 

* --****.-*'  ***/\  'L  Hf-H  [ Cli  1C)  PREVIOUS  M0N1  H ********************  + **  *»--•  ■ 
' ■ I (.!>-[.<  J)+L(K)-ICrCK) 

* * - x *********'  > ] PROD  10  MAX  ****  ******  **  **  **  * * * * **  ★*  **  *★  * > * - * * ■ 

it  o j Ed  j.iCT'K) 

4 /••)  SOLON  riNUP 

i I.AOI  10)  = . iRIJF. 

*************  It  INQUIRED  POP  1 st  MONTH  IN  FU 1 URE  IS  GREATE 
**  • **  tr** **MA X PRODUCTION  SCHEDULE  THEN  SCHEDULE  IS  BAD****** 

: ’ IP  ( !.<  I ) . i . lo  re  I ))CALL  !AI) 

> **********S  TART  OF  SMOOTH  I NO  ROUTINE  L(*)  CONTAINS  A TF.-i\Flvb  pl<  , 

; * * a *******  * **'j;.;  | IFDULF  * * **  **  **  **  **  ******  **  **  **  **  ****  **  **  **  **  **  * ..  **■*  ** 

i 4040  DOS  11=1,12 
I 4ftS0  L0(  I )=MS  .MO 
I 4AftO  D 1 CONTI  Nil  I 
I to  / ) I F ( F L AG ( E ) ) DOT  ) POP 
I 4-,oo  I LACK  9 ) =,TRUF.  • 

I 4o90  DOoOI  I=L-  ;.  I ,LF..i 

14/no  j=i-lp;no 

I 4710  601  I'XI  ,4  ) = L(  J) 

14/20  AOPOONriNUE 

I 4 / .1  )P  *************  tp-  riiRl<  Oi-  NO  SMOO'l  IIINO  IS  FO  <1  DON  I-'**  **********  ******* 

I 4/40  I r ( .NOi .i  I AG(  1 ) ) RETURN 

! !/>  '''***a**v-a******,v  **  ****!  NO  (1a-  Pol  1 F-P  M *■*  **  *A***************^  *-*  , ***  - 
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14/60  PR  I,iT200, 

14  77'  PHI 1 1 1'5h 

14780  - .-•■'I  IAT(  //,  I JX  I A I i'()MP(:.»  EN  i'  SCHEDULE  * " ) 

1 1 / 9f ' ' * X A * XX  * x X*  ,V  i 1 [ I'f  i R I A L 0 r ' 'I  ) i il ' I f ( );'!  ■ , C'i  i DU  L.  I *XA* **********  ********** 

( 1 ) ,JI  Y, (LQ(  I ) , I»l , J EM)  ( I ) ,I«*I  ,LENF) 

RMAT( IOX, "THE  FIR  M?  IS«  19",  12,/// ,1  3X, 

M A M J ) A S O N D", 

I 40  30*//, I0( I OX , I 215,/)) 

I4H40  PRINT53 , 

14850  83rORMA  f ( // ) 

. 1 ) )U  ro  PR  If  THIS  COMPO  . i 0;  NO." 

148  /0  READ54,  I 
! 4080  54RoRMAT(A3> 

I t 1 ‘Ht  xt  ■ A } ; , { 0 IP  SClib!  OLE  IS  tjOOD  ***  X*  ******  A ,r  **  XX  ************ 

14900  IF  ( I . HQ.  " ZES" )R ETURN 
14910  IIOCONriNUE 
I 1920  PRJNT2  >0 

i 1930  prints; 

1A1  , 1 ■,  IFIED  MAXIMIJN  PRODUCTION  SCHEDULE*",/) 

14950  I I;  i o2  , Jf  r Y , ( !.0(  I ) , 1=1  , JIT  M ) , ( I CT(  I ) ,1  = 1 , LENT  ) 

14960  PRINT, "TYPE  If!  RELATIVi  < IAN  Cl  TO  THE  SCHEDULE  I N THE  FOLLOWING" 

149/0  PRINT, "FORMAT  YY,J,r,M N,D  ." 

i 498  • R PINT,  "CARR  A I Gh  RKT’.JRN  At- PER  LAST  CHANGE" 

14990  1 08C0N 1 I NUE 
1 8000  I R=0 
15010  170601  = 1 , 13 
15020  60L0< I > =0 

I 50  3 fC  x **********  **R*- AO  CHANGES  TO  MAX  PROP  SCHEDULE  ********************** 
>C**  *********  I R IS  fH  /EAR  THE  CHANGES  ARE  TO  BE  MADE  To  ********* 

15050  READ, IR,< L0( I ) , 1=1 , 12) 

1506  ) Ih( I P . EO, 0 )GOTO 1 09 
! 5070  Ir<  IR.LT. JEFY.OR. IR.OT. T2Y ) GOTO  I 10 

X* x ** * x ****** II  15  i HE  l >t  WHERE  CHANGES  OCCUR  *********************** 
13090  K IR-JEF  Y)  *1  2-JEFM+ 1 

i 5 I O' )C* ****** ******  KK  IS  THE  LAST  MONTH  WHERE  CHANGES  OCCUR  * ***  ********* 
13  1 10  KK=K+I  I 

15120  1=0 

15130  IF(K.GE. l)GOTOol 

15140  J-  1 — K 

15150  K = l 

15160  6 I CONTINUE 

I 3 1 !\ 'i  0 ******  v***  **Ci  i ANOL  MAX  PROD  SCHEDULE  ' **********************  ******** 

15180  1)064  I=K  ,KK 
18190  J=J+1 

I 5200  ICr<  I ) = ICI  ( I )+I  Q(.J) 

15210  64C0NTINUE 
15220  GOTO  I OH 
15230  I 09 CONTINUE 

i ,,’40i  *************** ******END  ROLLER  6 *********************************** 

*** **CI IECX  TO  SEE  1 1 NEW  MAX  PROD  SCHEDULE  IS  ABOVE  LIMIT  **’ 
13260  DO 70I=| ,LFNF 

1527  I E ( I CT ( I ).GT. ICP( I ) ) ICT(I )=ICP( I ) 

. 5 90  70L  ( I ) = I TT  ( I ) 

15290  GOTO  107 
15300  RETURN 
13710  END 


n 


HAD  O’. r or  Fh  ut in*- ) 

Sub rou tint'  PAD  is  called  from  subroutine  I < : 'JO!,  if  the  trial  schedule  dor 
not  meet  ttie  product  on  requi  renieuts  Tin  printout  from  subroutine  BAi 

BAD  SCHEDULE 

IT  GOES  BAD  ON  U/ 76 
AND  IT  RECOVERS  ON  S/78 

■■  ou  MUS r AI D A'.  I kSI  4.88  UN  S S HE3  I . 

UNRECOVERABLE  SHORTFALL  OF  108  UNITS 

:;otks 

1 1 first  , ..  the  il  goes  bad,  at  least  some  units  must  be  add< 

before  tnis  date,  in  orrlet  to  make  the  schedule  good  again 

2.  The  last  bad  month  in  the  schedule.  In  tnis  case,  it  is  the  last  month. 
1 The  number  of  units  you  would  need  to  have  stockpiled  at  the  first 

.nth  in  the  future  to  have  a good  schedule. 

• Total  shortfall  at  the  end  of  the  program. 


*i  <30';  **********  ***!’•  |J  U.BROOi  II.  OAI.U  -po  |J  ' i-  A iVNl  A * J '*■  » * 

» ,) C*  ********** **SC ' I!  IB  BAD  II  ■ <41  Ih'H  THt  IHEDUl 

)C* ******  ******  A i ' ■i.ii.  It  n K)  CAT*  J • AIN  * ********** **  i 
*3300  OP  PC 

>170  i-l  A ■ l 1 0 )=. F Al  ' . 

>3F0  I I =L < I )-icm  > 

)>.  ■ ************* j , is  i'  to  ai  j • n i ***************** 

6400  I II  -II 

'I  )C**** *********  iiu's  L(  I ) i ■ THE  -v  r>j.v.i  PAf:  •»****  » ****  «*  *»  «>  ** 
•ill  L(  i ) = i ! ( I ) 

• 3.  )C  **  * »••*  ********  i'  (I-J  To -LOOP  DISI'EIHUi .»  iriE  S:  iORTi-  ML  1,0  ) i:, 

.'■••I  A -’1  = 1 , Lc..r 

- !•  • If ■ ( ! '!'(  I )-L(  I >.  LI',  f I ) GOTO 3 

> L(1  )=L(  I ) + I I 

64  Ij  00 1 04 

i • t 3c.)n  r r ;;ije 

5 ' - ' II  I i -101(1  ) +L<  I ) 

‘j‘jo o l ( i )=icr<  r ) 

v I o ,'v  )..  1 I ..  } f ; 

> «:•  JO*  ********  ****Ii«  (1115  CASE  rill:  LINE  WILL  NOT  CAiCtl  Jl>  Pt-EOM.  11 
■ i.  )'  » *-  x *•**  * +*()i-  1 1 s i PROGRAM  ********************************  *»  - • 

5540  I 4=  1 1 
5560  I‘j  = LXNF 
5560  OOi'OO 

i 7o  4 conti hue 

-*'•  -OC* ************  i Ml:  S'fORi't-ALL  A ILL  BE  MADE  U.-  IN  TIE'  Ith  •lOiAJ  1 ’ i 

•>■  PTC  ***  ******  ****H:  LFU  RE  * *********  **  ********  ************  **  ********  r * * * • 

6600  [4=0 
o.i  10  15=1 
>20  6C0NTINUE 

5-  30  16=1 /=o 

' 40C*************TT'Ii  UO-LOOP  DE  TER..'.  I NT  S THE  FITS!  LTli'il  WHEEL'  . . 

1 - >50C** ***** ******S(." IEDULE  GOES  BAD  ********************************  * > 

ii‘,60  DO/ 1=1  , 15 
5670  1 6= [ 6+L(  I ) 

76po  1 7=  i y+rrr  ( i ) 

-690  11(1  /.Of,  1 6 KIOTO, s 
5/00  7 CONTINUE 
5/10  8 CONTINUE 
5/20  18=1 

'*************15  is  THE  NUMBER  OH  MONTH.1?  TO  WHERI  Till  SCHEDULi 

5 / 40C ******* ******!'()  ABOVE  THE  LINE  OH  PALENCE  ********************  *^  n 
.750  1 6= I5+LEN0 

. ; » ****  *******♦!',  IS  THE  NUMBER  OF  MONTHS  TO  WHERE  THE  SCH!  JULl 

' / /OC  ***  A *****  ****M  A i)  **********  ******  **************  ***************  r*<  . 

•WHO  I 8=  I H+LEMO 

- / HOC  ***** **  ****  **  I ; NO  IS  rill-  SHORTFALL  AT  l'HF  l:ND  Oi-  Tie  PROGiM  .!**•* 

6- 00  Il-NlisU 


’k’fe’k  * > - 


★ ★**•>* 


Li  ' I 0 T RHM«  I H-  ( F 8/ 1 2 ) * I 2 
>120  I!MY*J1  Y + ( I8-D/I  2+  1 
>'.30  It  IS/I 2) *1  2 

b'MO  IhbY=JI  Y+(  15-1  )/l  2+1 
S3SQ  I r ( Hz  OM.hU.O)  I!;MM=I  2 
S'.6D  I!-(  HViM.KO.O)  I 'NM=1 2 
•Jo  10  PRIhT!  I , I RUM, l <oy , l ESM,  IE  BY  ,111,14 

‘JURD  I I EURO ATI  //  , I OX  , "RAJ  SCHEDULE ",//, I OX ," IT  GOES  ><Ai)  ON", 13,"/" , 12, 
ia>J90</,l0X,"ANl)  If  tECOVERS  ON " , 13 , , 1 2 ,//  , I OX  , " YOU  M J ST  AOD  A 1'  LEAS. 

$900*15,"  UNITS  EARLY  IN  THE  SCHEDULE" ,/ , I OX , 
c>>IOS."IJNRECUVERA  !.!■'  SHORTFALL  Or",  IS,"  UNITS",//) 
y>2  ■ RETURN 
TV 30  END 
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spll, 


i&-JCLL 


tig  Routi 


Subroutine  SPLIT  is  called  from  th<  main  progr  it  l - ion  is  to  spii., 

in  the  case  when  there  is  more  than  one  supplii  • the  on  : ,:t  schedule  ; t • 
ROLLER  hr  o the  amounts  tor  each  supplier  Th  1 v ,>rli  ted  output  rhi  .• 
subroutine  produces  is: 

ERROR  IN  SPLIT  K=  U6 


where  K is  the  month  in  the  future  that  cannot  sue  es  tully  split, 
however,  this  message  will  not  appear,  unless  • e is  an  error  in  the 
prog  ram. 


OuDroolw  JKL\  ; 


1 


to 


34 


'artl  » 


I '»/-  '»  :•:!)  ••  <)••?  i'  I I-'I.  f . < [ 1*1- ) 

. i jvo  x: 

1 ■'/'»'  SPLIT  IS  CAM.i  .0  FROM  fill:  I PROORAM 

I j7K)C 
I lOVOSORO 
1 1 > ;oo  (ill.  \Jf-i  IJ ’•!+? 

16010  RErtll.JS 

1 WO  U (ul/.l.flH.  I . AUo.PLAG(2  ) JuoTOI 

I 60JOC 

• V'-IOC  o.Ji.  I i'i If:  OF  SUPPLIERS  AHU  i-LA0(2)  IS  FOR  COMPLETE  OUfPlj : 

! O'  >bt)C 

I > O ) i (0,161  )(L(  I)  ,1  = 1 , LENT) 
l'i  r-  I6h  Ok.lAidb) 

I 6uS  ; I orORMAT ( 12  13) 

16090  RETURN 

16100  i continue 

16110  1=0 

I ol  <_  i oco.i  i 1 .Oj'H 

1 >'30  CALLS  i sc  i(  A , Y f ri'F  >) 

>'  f--r'  IX  FL+23)/12 
I o I So  000  1 = 1 , K 
16160  "’FORMAT  (IS) 

161/0  4PI.A’J(3,?).I 
I 61  RO  CaLLSAVSOTI  5,  VJ  ) 
i 61 90 C 

10200^  SF I'  POINTER  VU  ro  FIRST  SUPPLIER 
! , 1 62  IOC 

16220  P()  101  = 1 ,NUM 
| I6230C 

lo?AOC  T'HS  iJO  LOOP  . i FADS  THE  % SPLIT  FOR  EACH  SUPPLIER 
I ■ I6250C 

! )260  PEAIX  3,11  ) I CP  < I ) 

[ 16270  I It-  ORMATC  I2X.I4) 

I 62 60  Pt)  I OKK=  1 , NUMV 
16290  PEAU(  3 , 2 )K 
16300  I ocoNTIrJUi 

16310  OO | -jI  = | ,hUw 

is. ,20  nvu)=rcp(n 

16  330  ibcoivrrPJi 
i j 330  .002 o J = 1 , SUM 
T ' 16  3'  OC 

i j I60C  ill  IS  00  LOOP  OR  ERMINES  THE  7 SPI  IT  RANK  ORDER 
I 6.3 70C 

j < 1 6300  K = l 

, I 6390  KK= ITT ( I ) 
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j*1  I c 

i 'I  ■ ; Ol)f  ) " i r t<’'‘  i .« t:  ) i A X I ’ jn  PLI  Or  liij  >r  i HA  1 A , F ■] 

i ).!JO0 

i • ltd u-.  i r r < j > )goto21 

<)i"  1 K = .I 

i rK=nr(.i) 

' ’ / 1 ;>l  'ONflHUI- 
o>  i f Tf  ( fO  =0 
I vi90C 

-C  I'.’i  ( I ) I ■ DIL  .Ji)  FI'  Or  Die  SUPF’Ll  i «.  I TH  Tt«E  FUI  / ft  > . 

I ftft  IOC 

I 6320  ICT( I )=K 
160  30  OOCOOl  fIJIj  - 

. i-  ******  ^ ********  ** ****[/H j ) fjj-  SPI.  I T - 1 ***»  ************  ****  **  .•  **  . » * 

u i no40K=i  ,lenf 

I o-  60  CALLSETSCi  ( J,  V ) ) 

I 63700 

16Shoc  Kl  iS  THE  MONTH  Ih  IMF-  PROGRAM  TO  ME  SPLIT 
1 6390C 

1660  ) KI=LEli)+L 
I An  10  K2=  .UMiAER -K  I 
I V,2.)  ..'01  II  = | , HUM 
I ft') 30  P E A ■ < 3 , 2 ) L A 
I 6ft4  )C 

I 6630C  THE  4 EXT  S TAT;  A 1 0 JT  READS  THE  Ith  SUPPLIERS  Kith  MOwTH  INTO  J 

' . : LAST  IMPLIED  Do  LOOP  ( CKA) *KK=I ,K2 ) READS  THE  REMAIN1  3 Me  IH 

I 66/00 

i 6of!0  REA  H3.42)  ( (J  ) ,KK=I  ,K  I ) , ( (KA)  ,KK  = I , K2  ) 

16660  I TT ( I ) =J 

16/!  >0  1 0 < I ) COMAI  .S  THE  nUMBER  Or  THE  Ith  PRIORTY  SUPPLIERS  6 ‘ 

16  / IOC 

16/20  I A ( I ) = J 

167  30  0Nh3(I)=.TRIJE. 

16  740  4 I CON T I MU E 
Ift/hO  42rORMAT(4X ,1216) 
i , /6 nr 

16/ i jC  L(K)  r.  THE  TOTAL  SCHEDULE  EOT;  Fill:  MOUiii  oE  ARE  hORk  I LG  'Hi. 

I 6/hOC 

I ft  /'/J  IC  '=L(K  ) 
i vOO  I)043K.<=1  , NUM2 
loll;)  CALL  PUT  ( I CFJ. ) 

I 6-, ?o  K A=0 

I 30  OIL-  (121  )=.  EAL  E. 

1664,  ;04  I=l,l UM 

I 6 ftOC 

i - 560  j=f  <; r(  r ) 
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!'■'/)  F!  ( . i'll)  .■  6(  I)  .Op.  IA(J).Lt  . iT(.J  ) ) ( Xi  [CM3 

I VlHCK' 

T IIS  'RANCH  I l'AK  I:i4  Ir  TH:  E I 93  i J'l  I A ( I ) IS  OVER  THE  MAX  IMUN 

i 'wooc  i onuonoN 
I 6'?  IOC 

I 69P0  DM  i(  1 ) =.  EALSE. 

I 6930 C 

I VJ40C  Y \ IS  THE  A-uKj.MT  OVER  max  PRODUCTION  SCHEDULE  FOP  ALL  SUPPLIERS 
I 6950C 

I j > 60  A- 1 , A + 1 \( J)-ITi (J ) 

I 697'  )C 

I\(J)  16  SEf  it)  A A X I MU6  PRODUCTON  RATE  lii(J) 

I 64900 

!/'.>(,)  i a < j ) — i rr ( j ) 

I A)  10  4 3CON  ri.JIJP 
I 70P0C 

I A . -nil  ;{ I ?1  ) TO  .TRUE.  IT  AT  LEAST  'ONE  SUPPLIER  IS  SI  ILL  G00[ 

i 704JC 

I /OSO  Ir  ( 'N'I:S  ( I ) JONES  ( I 2 I )=«TRUE. 

1 7060  4HOON  f I NUE 

I 707  J l r ( .NOT.ONES(  I o 1 ) )G0T046 

i 7 )S0  ICM=KA 

I 70  90  IE  ( K A . EQ . 0 ) GOTO  SO 

I 71  JO  45C0NTINUE 

171 D 4 6 CONTINUE 

I/IPO  PRIST, "ERROR  L.  SPLIT,  K=",K 
I 71  3 ) CONTINUE 
I 7 I 400 

i /IS  >C  ' I i OlJE  JPLIT  PRODUCTION  SCHEDULE  rOR  THE  Kth  NINTH 
1 / If.  >C 

17  17  [ r ' ( . , 16) ( I A( H , 1 = 1 ,NUM  ) 

i /loo  4 ;<>;  f I . . H 

/IV  . >N 

1 />'  Jr.. 

I /PI  0 * *x  *****  ***:  **  kk  **  ****E‘ND  ()E  SPI  IT-  P **** **********;*******★***-*  *** 


as 


lt«  purpose  is  to  split 


PUT 

Subroutine  PUT  is  c a 1 1<  1 f rom  subroutine  SPI IT . 
a given  month's  production  among  the  suppliers  subject  to  certain 
constraints  put  upon  it  by  subroutine  SPLIT.  It  r .ides  no  output 


IjMfcSOj 


|J>K>Ol'A 


OAJ6SU 


MCTlil 

7a  rr\  i 


KK‘(IWA* 


OKiEbUl  > 


“ 1 

— 

r ] 

if<4--6  j 

r ■ - ] 

I1L4  ! T 

n— - -U — ! i 

i*t  ! 

1 i^wupi  - 

i 

— J 

rl 

i-i.i  j 

- ' J7  

; 

';>0 

Nil  .*0  .j  1 I n: 

/ 

>30 

spec 

/ 

10 

IEG=0 

/< 

?bO 

NOI  1 = 1 , . U'- 

I 7260C 

172/OC  J IS  rut-  .4UM  w:'?  Oi-  i ill:  SUPPLIER  rt  1 1 H Ith  PRlOMiY 

1 72POC 

17290  J=ICT( I ) 

I 7 300  J i*  ( ON  [:5  ( 1 ) ) I EG- 1 r G+  1 0 P ( J ) 
i / 1 1 ) I CONTINUE 
I / 420C 

' IH  TOTAL  OP  ALL  il  LI  £ £ ER<  ENTAGES  TH  Afi  : , 

/ 01  >0  [|  [r-0  10  2P.R0  nil:'  . YOJ  HAVE  a.m  ERROR 

I /V,  i IE ( r EG. EO.O) RETURN 
I /3 60  K=0 
I /jyn  1)02 1 = I , N U Ia 
: 7 • I ( .NOi  .Old  S C I ) )C0;  )2 

I / - ) J=ICT( I ) 

I 740OC 

1741  ; i r HI  TENTATIVE  AMOUNT  TO  HE  ADOEU  TO  THE  Jth  SUPPLIERS  ' 

I 74200 

I /4 .30  i,  - ( I A ' + ICP(  J ) ) / I r-0 
1/140  I A < J ) = IA( JJ+KK 
I /4S0  : 

Id  1 I i T I!  lOTAi.  AMOUNT  GIVull  TO  ALL  SUPPLIERS 
I / 4 7 0 C 

I /-!?-  ) 

I /49  j . CO  .1  I.NIJE 
I /MOO  L--IAM-K 
I 7S 1 00 

l / dOO  II-  K EQUAL  TO  /.FRO  THEN  ALL  UMTS  ARE  GIVEN  OUT 

I /G30C 

. I /r 40  I i- ( K - EO.O) RETURN 
J7bbO  JL=0 
175  60  I 2 4 CONTINUE 
I /b70  1>03I  = I , Nil/ 

I 7bdO  II  ( .N0T.0NL3( I ) )G0T03 
I /S9Q  J = I CT  ( I ) 

I 7d00  IA(J)=IA(J)+I 
I VolOC 

1764)0  JL  IS  THE  TOTAL  AMOUNT  Oi-  UNITS  GIVEN  OUT  IN  T.IS  DO  LOOP 
J /630C 

17640  JL=.JL+  I 
I /6b0  Ir-  ( JL. 01: . K ) RETURN 
i 'If, o')  /CONTINUE 
I 7670  GOTO  I 24 
I 7 680  4 CONTINUE 
I /6V0  RETURN 
I 7/00  END 

I / / 1 00* ****** *+*R40  )E  NUHROUTlNb  PUT  ************************-*****'  *■* 


PRINT  i’rint  Routine' 


Subroutine  PRINT  i9  caLled  from  the  main  program,  and  transfers  the 
computed  schedules  to  an  output  print  file  (to  be  pi inted  after  the 
program  is  through  running).  It  also  incorporate-,  various  other  dat 
from  its  input  component  file  into  the  output  file.  It  produces  no 
output  on  the  terminal  while  running. 
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V 7 
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|icri-uu  + ] 
IfC 

Inf. Pi  - lcPUJKt. 

I_  I 

-J 


[ C/Vt  0.1  M 

|(l,2,Ll#l£lo) 


/ £eA<U4)  / 
[|JEII>  I 
\ l'-lfr k)  \ 

w1-1 


I£TU)-KTU}  i 

+ LEU) 

|l6PUVlCKl)  ; 
+ LPUU) 


1^10,101  ucwd 
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1 
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i>i+i 


4i>ue>j 
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16^,1)  * LID 
Ib(l,5UU}U) 


•yg= 
1-IBlUWfl^^) 
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iiaiVriaii)| 


■m 


1?»U  ?)  ■ 

isM+K  I 


j 


i //20  SU'  ROUT  I NEPR I NT  ( I PE  ) 

! 7/30$ RPC 

; 7/40  CALLSETSCT ( 3,Y(  IPE ) ) 

I 7 750C*************SET  POINTER  TO  CONTRACT  H LE **********  ****** 

I 7 760  I F( F LAG ( 4 ) ) CA  LLSETSCT ( 4 , Z ( I PE  ) > 

I 7770  2F0RMAT ( 76 ( "*" ) ) 

.7780  JFORMAT  ( ///) 
i 1/90  4F0RMAT  (MX  ,49!  "*"  ) ) 

17300  5F0RMAT! I NX , "M60/M48  LINE  OF  BALANCE  PRODUCTION  REQUIREMENTS") 

17810  6F0RMAJ.  ( / ) 

I 7820  WRITE! I J 2 ) 

I 7830  WRITE ( 1137 
1 7840  WRITE! I J4) 

17850  WRITE!  1*5) 

17860  WRITE! I 14) 

17870  WRITE! I 16) 

I 7880C*************If  FLAG! 10)  .TRUE.  YOU  HAVE  A GOOD  SCHEDULE***** ** 
i 78 VO  I F (FLAG! 10) )00T0! 00 
I 7900  WRITE! I |7)IBBM, IB BY 
I 7910  IF ( I END. N E. 0) GO TO  I 00 
! 7 920  W RITE! 1 »8 ) I EBM , IF BY 

17930  /FORMAT! I OX, "PRODUCTION  FALLS  BEHIND  IN " , 13 , "/" , 1 2 ) 

17940  BFORMATdOX, "RECOVERY  OCCURES  IN" , I 3, "/", 12, //> 

17950  1 3 /I  FORMAT! 10X, "UNRECOVERABLE  PRODUCTION  SHORTFALL  OF", 15,"  UNITS",// 
17960  1 OOCONT INUF 
i 79  70  K=( NEL+ I I )/l2 

1 /9H0C*************RFAD  INITIAL  VALUES  AID  COMPONENT  NAMF*********** 

17990  READ! 3, 101 ) I AA, I PP, ( I A! I ) ,1  = 1 , IDI V ) 

I 3O00C*************IF  .NOT.  FLAG(4)  THERE  IS  NO  CONTRACT  FILE******* 

1 801  ) IF! . NOT. FLAG! 4 ) )G0T03 1 6 

1 ■ 1020  C * **********  **REAI)  CONTRACT  I N I T I ALS  **********  ******  **  ****  ***** 

18030  READ! 4,101 ) I AC, IPC 
I 8040  CALLS A VSCT! 4 , U V > 

I 8050  D03I8 1=1 ,K 
18060  3 I BREAD (4,1 03 )J 

! 80  70C*********  ****3E  T POINTER  TO  FIRST  SUPPLIER******************** 

18080  CALLSA  VSCT!  4,  UW) 

18090  3 1 6 CONTINUE 
I 8100  I 0 1 FORMAT (4X, 2I4,4X,40A2) 

18110  WRITE! 1 »9)( I A ( I ), 1 = 1 , ID  I V) ) 

18120  9F0RMAT! IOX ."COMPONENT!  ",40A2) 

18130  WRITE! 1 ;6) 

1 81 40 C ************* II-  NUMBER  OF  SUPPLIERS  EQUALS  I GO  TO  102******** 

18150  I F ( NUM.  EQ.  I )G()TO  1 02 

I 8 1 60C*** *********SK I P LEAD  TIME/%USAGE  LINES  ********************** 

18170  DOl 2 1 J= 1 ,K 
18180  121  READ! 3, 1 03) I 
I 8190  I 03F0RMAT (12) 

i 1200C*************RFAD  & WRITE  NAME  OE  SUPPL I FR***** *************** 

18210  READ! 3, 106) ( I A(  I ) , I =1 , IDI VI  ) 

I 8220  WRITE! I 1 1 0 ) ( I A! I ) , I = I , I DI VI ) 

18230  I OFORMAT! IOX, "SUPPLIERS!  »,40A2) 

18240  1 I FORMAT! 2 I X,40A2) 

18250  I 06F0RMAT ( I 6X ,40A2 ) 
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I ! OREAD  ft  rtRITF  NAMES  OF  THE  REMAI  UNO  SUPPLIERS******* 

18270  1)0 1 04  I -?.  ,NJM 
1 >280  RfcAR(3,  103)  ((J)  ,K  = I ,NUMV) 

18290  READ(  3,  I06X  IA(K),K=1  ,101  VI  ) 

I 53  0 ) WRITE!  III  1 ) (IA.(K)  ,K  = I , iDIVl  ) 

18310  1 04C0N1'INUE 
I 8320  CALL5HTSCT( 3,Y(  IFF  ) ) 

18330  RtAD(3,103)I 

I '340C*************FT  LE  18  SHI'  TO  LEAD  TIMi- 2%USAGE  L.  J Nl:  ********** 

1 5380  W ft  I IE  C I to) 

• 1 8360  GOlOlO/ 

| i 2 700 *****  ******** 3 A VF  ONE  SUPPLIER  *******  *********  ********** i ***** 

I >80  1 0^ CONTINUE 

1 390  UR  I 1 E( 1 ; 12) I AA, I PP 

800  I2r-0RMAT<  IOX, "INITIAL  VALUES,  ACTUAL 15 ,/ , 

! >4  ! 0 -425X  , "PLANNED*  " , 15  ) 

I 84  20  II  ( FLAG  ( 4 ) ) NR  I i'E  ( 1 I 13)IAC,IPC 

I >430  1 3F0RMAK  1 7X,  "CONTRACT  ACTUAL 1 5, /, I 6X , "CONTRACT  PLANNED*  ",  15  ) 
18440  HR  1 1E( I 56) 

I 8450  107C0N1TNUE 
I 846  ) WRITE! I 5 I 4) 

18470  1 4fORMAT( IOX , "LEAD  PERCENT" ,/, IOX , "TIME  USE  ", 

1 Mso  ft  "WEAPONS  SYSTEMS  NAME",/) 

1 >490C*************RE  AD  LEAD  TIMES  AND  PERCENT  USE****************** 

18'  .00  RFAD ( 3 1 09  ) ( ( LE  ( K ) ,LPU(  K ) ) , K=  I ,NEL) 

18510  I09FORMAT(4X, 12(12,13)) 

I 8520C*** VV  POINTS  TO  THE  FIRST  LINE  OF  DATA  IF  THERE  IS  ONE  SUPPLIER 
1 8530G***0R  ro  THE  FIRST  SUPPLIER  IF  THERE  THERE  ARE  SEVERAL  SUPPLIERS 

2 80  40  C ALLS AV SC'n  3 , VV) 

1 8550C***  **********SET  THE  FILE  TO  THE  TOP************************** 

18560  REHIND3 
18570  READ (3,103)1 
13560  RFAD( 3,103)1 

• I 3590  00 1 1 0K= I ,NEL 

I 8 > 00 C *********** **R  I . AD  VEHICLE  NAMES  **********************  ******** 

1 8610  PEALU3,  1 I I ) ( I A(  I ) , 1 = 1 ,IDI  VI  ) 

I 3620  1 I I FORMAT (4X , 40 A2 ) 

I 300  *************  *K  th  VEHICLE  DOES  NOT  CONTAIN  COMPONENT***** 

I 86  40  I F ( LE ( K ) , FQ . 99.  OR . LPU  ( K ) . EQ.O  )GOT()  I 1 0 

I 3650C*** **********WR ITE  LEAD  TIMES  AND  rERCHNT  USE***************** 

1 3660  WRITE!  Ill  5)LE(K  ) ,L.PU(K)  , ( I A ( I ) , I = I , I D I V I ) 

1-16  70  I 5H)RMAT( 3X  , 15, 1 9 ,4 X , 40 A 2 ) 

I 8680  I IOCONTINIIE 
1 8690  WRI  ri=<  I 13) 

18700  I CT I =0 
18710  L I =0 
13720  LQ I =0 
18730  I CM  1 =0 


i W-iO  ['<).  <:■  > I = I , I 90 
I . 7bO  L(  1 )=0 

I s / 60  1.0  ( I ) =0 
./‘/'I  I Cl  (I  ) ='> 

IS /HO  1CP(  I ) =0 
l«790  220C0NTINUE 

j wocc*  ***********  ( >1 1 FS  ( I ),  1 = 1 , 10  ARE  Till-  FLAGS  FOR  SUHROUT  INE  LIST******** 

i 3 10  00201 1=3,10 

I I 20 1 ONE  > ( I )=. FALSE. 

IT-  •:  ) ONES  ( 1 ) = . TRUE, 

I •!  > ONES ( 2 ) =.  TRUE. 

1 ,00  ONES  (■))=. TRUE. 

I 0 ONES(  6 ) =.TRUE. 

700*************Ie  .NOT.  ELAG(4)  NO  CONTRACT  r ILF**************** 

I i ,)  IE( .N01. FLAG! 4) >0010200 
IT  vl  C A LLS H fSCT (4,117) 

I T/OOC***** ********  1 9- 3 EQUALS  LENGTH  Ob  CONTRACT  IN  MOUNi  HS  ********* 

I .,910  R r A ■ 1 ( 4 , 109)  I , I/.B 

I <v20C************SEr  POINTER  TO  THE  1st  SUPPLIER  IE  MORE  THAN****** 

I 31  4l)C************0R  TO  THE  1st  LINE  OF  >ATA  IF  ONLY  ONE  SUPPLIER*** 

I 8'M  0 C A1..I.SE i'SCTC  4,UVV) 
ial/00  003001=7,10 
1 13970  3000NES(  I ) = .TRJE. 

I -ft  HO  I PM  ( 7 ) = IZR 
10990  AM(7)="  CNTP" 
l\>000  AM  ( il ) ="CNT  PCM  " 

19010  Ii  ( 8 ) = IZH 
19020  Ab ( 9) ="  CNTA" 

I 9030  A f-  ( JO)="CNTACM" 

19040  I ?’<  (9 ) =LENO 
I90SO  I M3  < 10) =LENO 
I 9060  2 00C0N i" INUE 

1 90 /0C************SEi  AT  THE  1st  LINE  OF  DATA  OR  THE  1st  SUPPLIER**’ 

I 90  HO  CALLSETSCK  3,  VV  ) 

19090  I HH ( I ) =LHN 
19100  AM ( I ) ="  REQ" 

I 91 10  I MM ( 2 ) =LEN 
19120  AB( 2 ) ="REQCUM " 

19130  I F'M  ( b ) =LEN0 
19140  AM(b) ="  ACT" 

I 9 1 bO  I M i ( o ) =LENO 
19160  A M ( o ) =" ACTCUM " 

191  70C************THi  RE  IS  ONLY  ONE  SUPPLIER  OR  ONLY  SUMMARY******** 

I VI  HOC*  ****  **  **  **  *()U  1 PUT  I S DES  IRED******  ************  *************** 

I 9190  I E ( NUM. EO. I .OR. ,N0T.FLAG(2 ) JGOTOIOOO 
19200  D0999KK=I  ,NUM 

1 92I0C************READ  NAME  OF  SUPPLIER  <3  INITIAL  VALUES************ 

19220  READ! 3. 101) I AA . IPP, ( I A( I ) , 1-1 , IDI VI ) 


102 


'*  « * >.  ***  **x**I  |-  )-i.AG(-l)  READ  THE  CONTRACT  IMT IALO  **  *********** 

I A 4'.)  I E ( E LAG ! 4 ) ) RL  AD ! 4 , 1 0 1 ) I AC , I PC 

; wri  [ !•(  i »20> 

/.  :>■)  20E0RMA1'!  /6 ( " — " )) 

i >z  /o  w iv  i n-:  ( i m ) 

• 9 93.; ********** **WR  I TE  THE  SUPPLIER  NAME  <v  THE  INITIALS************ 

I 9290  WRI  TE(  I »21  ) (I  A<  I ) ,I=>I  , IDI  VI  ) 

19300  2IH0RMAT!  MX, "SUPPLIER*  ",40A2) 

1 9310  WHITE ( I »0 ) 

1 L320  WRITE!  ! ? I 2)  1 AA,  I PP 
I 9330  Ir ( i ! AG(4  ) ) WRITE! Ill  3) IAC, I PC 
19.34  ‘i  RT  i i ■ ( I 5 9) 

, )C ***********  k.K  IS  THE  K Kth  SUPPLIER  *** ************ ********  ********** « 

193,'.  J=kK— I 
I 93  70  KR  ! r-KK+  1 

1 P jhOC*-  ******** **R !.- a !)  THE  HISTORICAL  PL.ANNED  DA*  A *************** *** 

19.390  p|'..  '(  1,203)!  IP!  I,  I ) , 1 = 1 ,LEN) 

I >4  00  2('  IrORM.AT  (4X,  I 2 15  ) 

I v1.!  OC* **********  READ  THE  PLANNED  SCHEDULE  EROM  F I LtE  3 ****************** 

19  420  R I .v  I ND3 
! 91.30  1)01  20 4 \ =L E N I ,LEN 

I M ’ I ?o  iREA;')!1-.,  >04)  ( ( I ) , I OR-  I , J ) , I E:  ( K , 1 ) , ( I I ) ,IQN=KRI  ,oUM  ) 

194 SO  201E09 4 AT < I 2 IS ) 

1 94 fjoc ********* ***  i . j ' i ; ( * , i ) to  total  holder  l ************************** 

194  /0  1)02  2 1 1 = 1,  LF  N 
1 91.-0  221  L(  I )=L(  I ) + I3U  , I ) 

I 94  90  LMLI+IPP 

19300  CALI  :'JM(  1 ,2,IPP,LEN) 

I 93  1 00***x* ******  READ  THE  HISTORICAL  ACTUALPRODUCTION  ******************* 

I 9 ,2  ) PEA 9( 3,203) ( IB! I ,5) , 1 = 1 , LENO ) 

1 9' , ,*******■*****  SUM  Is!*, 5)  TO  T01AL  HOLDER  LQ  *******************  ***■**> 

I 93.19  )0222  I = I , LENO 

1 93'  20.  !.Q(  I ) =L0 < 1 >+IU(  I ,3) 

I 93 oO  1.0 1 =LG  I +1  AA 
I 93 / 0 ( : A LLCUM (5 ,6 , 1 AA,L EH 0 ) 

1 9‘),.,;c* ***********  EILAL  PLANNED  CUM  CORRECTION  EACTOR  ******************** 
19390  K=  I •>  ( LENO  ,o  ) -I  (LENO,  2) 

I 9 ‘TO ;*********** t CORRECT  PLANNED  CUM  ********************************** ** 

! 93  10  D02CI 7 1 =LEN I , LEN 
I 9020  201  /IB!  1 ,2 )=IB( 1 ,2 ) +K 

I 3P30C*** ** ** *****  S.  IP  AROUND  IE  NO  CONTRACT  EILE/OTHERN ISE  IT  SETS  ****** 

I 9640C*****-*******  UP  CONTRACT  AND  CONTRACT  CUM  LINES  ******************** 

I 9 3 30  IE  ( . NOT. El  AG!  4 ) )G!)T02I0 
1 9960  READ!  4,20.3) ! If.U  I , / ) , 1 = 1 ,LEN  ) 

I 9670  CALLCU.M!  /,6,IPC,  IZB) 

I >990  READ! 4,203 ) ( IB! 1,9) , 1=1 ,LENO ) 

’I  9o9t  CALL.CU  i(9,IO,  IAC, LENO) 

1 > / 00  DO 22.3 1 = I , IZB 

19710  22 3 I C T ( I ) = I CT ( I ) + 1 B ( I , 7 ) 

19/20  ICi  MICTI  + IAC 
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. / / n ,io  ,:•:[  = l ,!  i ,<o 

J Mo  ! C’ ' ( I ) ~ I 1 ' ( i ) +•  1 1 ' C I , 9 ) 

iv/iiD  i Ci1 1 = ice  1 r pc 

1V/O0  3 1 'CONTINUE 

I / /OC*  ********  ****  Li  i i’i!;  SUPPL I I.:  * ******************  **********  »*****♦■ 

t / /HO  CALLL  I j T 
/ 770  999CON  L'lUUl: 

! 7 •>  ) ..I  I 1 T ( ! ? 20 ) 

I 7 < 1 1 , !.'M  E ( I ;20) 

I H20  WRITE  ( I 13) 

I * k-kk+kk-*  PI.VPARI  TO  FRITH  TOTAL  SECT  I OH  *+****>-  ****************** 

i 2 54  1 CAI  ! .St-  FACT ( 3 , Y ( IPF  ) ) 

1-  HO  PFAiK  3,  10  i )l  , I,  ( I A<  J)  , J=l  , I ! ) I V 1 ) 
l 7 60  ..  R I I E ( ! 5 30 ) ( I A ( I ' , I = I ,10171  ) 

19  l<  30E  )R  \T(  IOX,"iOTALS  FOR*  ",40A2) 

i 7 ) rtRI'i  h(  ! |6) 

I '*********  ***,■(  R 1 TF  ACTUAL  & PLANNFD  IN  I I I ALL  ********  *********■■•  * 

I vOy  ft  PIT  (I  l I 2 ) LQ  1 „ L i 
j V )0  I r ( ) ! a ; ( A ) ) ,r  • life  I « 13)1  Ci  I , I CP! 
i TV 20  ' ol  0 00  1 
I 7 7 o i OOOCOH  i If.UF 

I ;>.•;<  ■ ************  {RaFCii  lib ki-  If  ONLY  ONfc  SUPP!  IFR  OR  IF  ONLY  ******* 

; 7 ) ,oC** *** ** *****SU; ' MA RY  OUTPUT  IS  DES I RED** *********************** 

I 9760  cAi.L  FT  SCi  ( 3 , V V ) 

I 9970  00 402 K 7= I ,NUM 

I 97  hO  I F ( uilM.  NE . ! )R:  AD(  3,  101  ) IAA,  IPP 

1 99  90  .;***  ******  ***L  I ; L.OI  FILL  CONTAIN  ACTUAL  & PLANNFD  INITIALS 
20OU0C**  *******  ***S  U ' MED  OVER  A LI.  SU  PPL  I F RS  ******  **  ******  ****  ******  * 

. 0010  L i = ! . I + 1 PP 

20  )20  LO  l =LQ  I + 1 AA 
20030  PEA  ) (3,203) (LH(  I ) , I = I , LRN ) 

. ' y ) 40  REA 0 ( 3, 203 ) ( LPU ( I ) , 1 = 1 , LEND ) 

00 HO  003021  = I , LFNO 

200o0C*** ******* **L(  I ) FILL  CONTAIN  MONTH  BY  MONTH  PAST  PLANNED***** 

200  / )C************SL)MMFD  OVER  ALL  SUPPL  I FRS  **********************  *** 

2:.  iUO  L ( I )=L(  I)+LE(  I) 

, ';090C*****  *******L0(  I ) FILL  CONTAIN  MONTH  BY  MONTH  ACTUALS  ********* 

20 1 C )C****  ******  **S(J  to  MF  0 OVER  A LL  SUPPL  I FRS  **************  ******  ***** 

201 10  LC( I ) =L0( J ) +LPJ ( I ) 

20120  302C0NT INUE 
20130  REN  IN DS 
20 i 40  D023 I I =LFN I ,LFn 
20IS0  Rf:AD(S,  204)  K 

201  60S**** ****** **L ( I ) WILL  CONTAIN  THE  MONTH  BY  MONTH  SCHEDULE ***** 
201/OC******* 'r****FOR  THE  COMPONENT  SUMMED  OVER  ALL  SUPPLIERS******* 

20180  23  I L( I ) pK 
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A. 


**-J-  - 


J 


) ' v k -M  y * A x X * k Kit , R ) :’N  I I 9 3 ' i r‘  ' i ■ k k k*  ■■-.  a k * * r vt  ★****>.  X****  ******  *★★ 

jOoO  IE(  .r LAB(  4 ) )GOI  ) 1 00  ! 

10  CALLSETSOi  ( 4 , U v V ) 

0220  DO  JO  I <B=1  ,N’JM 

).'J0  I E ( NU  . NE . I ) R EA ' ■ ( 4 , 10]  ) iAC.IPC 
2 ),:40C*******  *****ICi  I ■ I CP  I WILL  CONTAIN  CONTRACT  ACTUAL  & ******* 
.'•'»2'a)C****  ******  ★♦PLANNED  SUMMED  OVER  ALL  SUPPL I ERS  ******  *********** 
20260  I CTI  = ICTI  + IPC 
30.  ’/>  ICPI=ICPI+IAC 
LUO  REA  >(4,203)  (LF(  I)  ,1  = 1 ,LHN) 

2 290  REA  J ( 4 , 203 ) ( LPU ( I ), 1 = 1 ,LENO) 

2Q)C0  003011= I, LEN 

1 1 1 dc*** *********1  ere i ) will  contain  rut:  month  by  month************ 

. o'>*  *■  ***-..  *****Pl_ANNED  CON  TRACT  SCHEDULE  SUMMED  OVER  ALL  SUPPLIERS** 
s.0  1 V)  I T ( I )=ICT(  I ) +L E ( I ) 

30  -4'L'************ICP(  I ) WILL  CONTAIN  THE  ACTUAL  CONTRACi  VALUES**** 

_ • 1 a*  **x*****SIJM  TED  OVER  ALL  .SUPPI.  I ERS  ***************** ******** 

>360  I Cl  ( I )=  ICP(  I )+LPU(  I ) 

203 70  30  I CONTINUE 
2 03 SO  i 00  I CONTINUE 
.'0390  004001  = 1, LEN 

2 04  00 C *******  **  ***C(  )■•'.  PON  h NT  SCHEDULE  PAST  AND  i-UT'URE***  ******  ******* 
204)0  IP(I,I)=L(I) 

'0420C* ****** *****ACTUAL  COMPONENT  PRODUCTION  LINE* ***************** 
a0430  IP< I ,S)=LO( I) 

2 044  J I E ( . NOT .rLAO(  4 ) )G01'040I 

/'*E  4L0C*  ******  *****C()N  TRACT  SCHEDULE  PAST  4 EUTU  Re  ********  *********** 
0460  I o ( I , 7 ) = I CT ( I ) 

* ****  *******C().  < TRACT  ACTIJ  AL5  ***********  ********  **  ****  ******  *** 

. ) I ( 1,9)  = 1CP ( I ) 

OJA.)  4- | CONTINUE 
0O  )C0  4 (a) CON  T I NUE 

' .)  |0C*  ******** ***THe  Nl-OCUM  LINE  IS  PLACE.!)  IN  13(1,2)  1 = I , LEN  ****** 

20320  CALLCiJ  U 1 ,2,  LI  , LEN  ) 

2 On 3 )C***'*********THE  ACTCUM  LINE  IS  PLACED  IN  13(1,6)  1=  1 , LENO ** *** 

. )-.40  CA I .LCiJM  (5  ,6 , LOI  , L F.N 0 ) 

20530  It-(  . NOT .E I AG(  4 ) )G()T0402 

2 O' , EOC  ************  I U ( I , 8 ) 1 = 1, IZ3  CONTAINS  THE  CONTRACT  REQCUM****** 

EON  70  CALLCUM (7, 8, ICTI ,IZR) 

.Jj.  OC************I  H ( 1 , 1 0 ) I=I,LEN()  CONTAINS  THE  CONTRACi  ACl’CUM**** 
20390  CALLCUM ( 9, 10, ICPl , LENO ) 

<: Jo 00  402 CONTINUE 

20610  I E ( rLA-J  (3  ) ) CA  LLZLOAT  ( IRE) 

e )'>20C******* *****K  EQUALS  THE  DiEEERENCE  BETWEEN  THE  ACTCUM* ******* 

■''.3  )C*  * <r  *********  All.)  THE  REQCUM  Ai  THE  LAST  MONTH  IN  THt:  PAST****** 
'i'r.Al  K = I :'{  LENO. 6 )-I  (LENO,  2) 
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) .bO  1)020  I 81  =U  D I , L : I'J 

. • >c*****A  )l)  1 FO  ALL  i IJTURi  REQC  ...  > NtCES  iARY  *********** 

■ ?OC*****BECA  11  ft  r.-tR  FUTURE  REOUIRI  4EN  AS  ON  ; rif;  ********* 

80C*****ACTCUM  AT  THE  LAST  MON'I  i OF  THi  Pi  I RATHER  FHAN  FHE ***** 
’069 DO***** PA ST  PLAN. < HO . * **********  **  **  ****  **  ****  **********  ****  ***** 
20700  201  MI  I ,2 ) =1 B( I ,2)+K 

2 1 ) / 1 )C* ******** ** *iJtf  I TC  INI TI AL3  **■'■  * -•  *w** **************  ***w*x  ******* 

, • [F(  ,N0T.FLAG(2)  .ANIJ.NUM.NE,  1 ) WRITE!  I 1 12)LQ1  ,[  I 
. ) i:W)  I r ( .WOi  .FLA0(2)  . AND.NUM.NE.  I • AND.  r LAG!  4 ) ) NR]  TE(  ’ «I1)IC!  I , I CP  I 
2 0 7 -1 0 I F < N U 8 . N H . 1 ) W R I FF  (Ii6) 

• i / ') c *********  ***ld( 9 1 IT  SUMMARY  OUTPUT* ******  ******  ••  • ■•********-••  **  i 

70/6  l CALL!.  I ST 
7 /O  r.RirF(l*6) 

)l  )C****CLOSE  FILE  IN  ORDER  TO  PREPARE  f HE  NEX1  < • . 

2'  ) 7 VO  CAL'  C LOSEr  ( 6 ) 

20800  I : FT URN 
20810  LI'Ji) 

20820C*** ********  END  OF  SUBROUTINE  PRINT  ******************* ***t--** **  • 


CUM  (Accumr  i i tes  An  ays  ) 


Subroutine  CUM  is  called  from  subroutines  PRINT  and  TANKER.  It 
arrays  for  use  in  subroutine  LIST.  It  produces  no  output 


accumulates 


j<';.i30C**+*CUM  IS  USB)  P)  SUM  AiV.iAYS  ***********  a **  i *******  *********** 
UJ840  SUriHOUriNECUMd  I , 12,13,  14) 

208riO$(,PC 

20M6O  IS( i , I2)  = [H< I ,1 1 ) + I3 

20*70  1)01  1=2,  r 4 
2086  9 J=I~I 

20890  I I rU  I , I 2 ) = I 8 ( I , II  ) + I R ( J , 1 2 ) 

20900  Rhi URN 
20910  ENl) 


r 


* * * k A r A * ■*  * * *j . [ . I‘  JSl'O  TO  .HJ'FPIJT  111  1 A ' 'I. . HS  *****  k **********  * 

2 1 / S'  I -l1  OUl  I Nl-I_  1ST 
.'0940  SPIV 
09V)  I a=  I 900 +J  I Y 
.''W60  1 M ) I OO  1 1 = I ,NJ\tZ 
!09  70  ; ! ~L!<  + I 
)V>  ) ,,  I IF  t I ; i ) K » 

_ wyo  It-  >.  MAT  (?‘/X,»*t",  ! 4, »**»,//, I 2X, 

■I  ‘tXV'J  I-  A M J J A S 0 N L"> 

. ion  - : Hi  ( I ;1j  ) 

, I ) ?0  SrORMATO 

I .<,•  .•  ;* * * > *-*  * +*+**.!  ! i rut  il:OIili«  IilG  .10  NTH  Of-  Till'  YEAR  llu  INC  OUT*  NT*** 
21040  J = 1 2*(  1 I -1  ) *1 

|)>,OC*****K:IOLI>  IS  i Ml:  LAST  MONTH  OF  THE  YEAR  SLING  OUTPUT** ******* 

2 1060  K HOLD*  I 2* 1 1 
'107  ) D0120lR=l  ,10 
2 I OHO  I L ( . NOT. ONES!  I . ))G0T0120 
■10'/.'  JJ=KKOLI) 

' 1 I OOC******I  MM  ( I »N ) IS  THE  TOTAL  LENGTH  III  MONTHS  OL  THE  LINE  **x*** 

■ I 1 1 OC  * **  ***H  E I NG  P R I NT  EL' ******************************************  * 
21120  IK  JJ.GT.  IRf3(  I.-;  ))JJ  = II3B(Jrt) 

0 1130  I E ( NJ.OE. J ) NR  I Ti:(  I 1 2 ) AR  ( I rt ) , ( I B ( I , IK ) , I »J , JJ ) 

? I I 400 ******* *****NR I TE  ONLY  HEADER  INFORMATION********************* 

2 IIS)  IF ( JJ.LT.  JIWRIl  E(  M2)  AIK  I W) 

2 1160  2E0RMA  T(  X,  A6 , " * ",12IS) 

1170  I 2 'CONTINUE 
2 1 1 80  n R I i'E  ( M 10) 

21190  IOOCONTINUE 
21200  I'iRriFdllO) 

2 1210  1 Oh OP MAT ( / ) 

21220  RETURN 
1230  EivO 
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FLOAT  (Ca  lucula tea  Float.  Lows) 

Subroutine  FLOAT  is  called  from  subroutine  PRINT,  and  it  calculates  the 
float  rows  in  the  output.  It  produces  no  output  at  the  terminal. 
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«/< 


ro  r 


jures  oi;i  i 


' ) K.i  (S  + ******  *********** 


/.  A * / t -A  * Ar  * ■»  * /.  [ J i r [ < 

2‘  ) El)  i R(V ! T I N EZLO  A i ( r PE  > 

260  4RPC 

? 70  I ' -l  ( 3 ) — LH f * 
jHO  IFV.(4)=LEH 
290  A B < 3>=“MANELT" 

300  A *3 ( 4 ) =M  SURE  L T" 

310  OM-S ( 3)=.  1 RUE. 

32)  ONE ><4)=.  TRUE, 
on  001  1 = 1 , LENO 

340C******yIB(  1 ,4  ) , 1 = 1 , LAST  MOUTH  IN  PAST , EQUALS  THE  PAST  ********* 
3oOC* *****REQCU M LINE(CUM  PLANNED  HISTORICAL)********************* 
.360  1 IM(  I ,4)=IB(I  ,2) 

37  ) f)02I=LENl  ,LEN 
380  J=I-I 

■;  00  C *******  I !3(  1,4)  IN  FUTURE  CONTAINS  THE  CUM  UNSM(X)THEO  SCHEDULE** 
400  213 ( I ,4)=IH(J  ,4 ) + IH( 1 ,4) 

410  [ 1 ( I , 3)=II( 1 ,3) +inc 
420  0)3  1=2,  LEN 
430  J= I - 1 

4'  ; + *****!  f i ( 1,3)  CONTAINS  THE  CUMULATIVE  LINE  OP  BALANCE  ********* 
■o?  313(1 ,3)  = IB(J,J  > + IB(  1,3) 

6‘ ) i)0  11  = 1 , LEN 

470C******IFH  1,3)  CONTAINS  THE  MANDATORY  i-LOAT  LINE******** 

480  41 :( I , 3)=IB(I , 1 ) — IB ( 1,3) 

4 on  DOS  1 = 1, LENO 

.*  * I n ( 1.4)  CONTAINS  THE  SURPLUS  FLOAT  LINE******** ********* 

SI  )L******AETER  THE  NEX  i Irtl)  DO  L(X)PS  ******  ****************"******* 
320  BI<<  I ,4)  = Ili(I  ,o)-I3(  1,4) 

3 30  D()oI=Lp:NI  ,LEN 

>40  6 IB  ( l ,4  )=  IB  (I  %?.) -IB  (I,  4) 

3 BO  J= I B ( LENO ,4 ) 

3 60  DO / I=LEN I , LEN 

5 7 0 C ******  A DL)  CORRECTION  FACTOR  TO  THE  MANFLT  L IN  E*********  ******* 


3 )+J 


7Ii'(I,J)»IB(I 
DOB I =LEN I , LEN 
I P ( I R( I ,1 ).NE.  ))G0T09 
I>3(  I ,4)=IB(  1 , 4 ) + 1 P ( 1,3) 
813(1  , ))=0 
9C0NTINUE 
J = I-I 

IE  ( J.  EQ.LEhO  ) RETURN 
KB»IB( I ,3) 

6/0  D0I0I=LEN1,J 

680  I H ( I , 3 ) =K  B 

900  I B ( I , 4 )*=I  B(  1,4)  -KR 

/Du  I0C0N1TNUE 

/ 1 0 RETURN 

ipo  end 


680 
390 
600 
6 1 0 
62) 
630 
640 
650 
660 
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TANKER  (Lists  lanl  Produ  tion) 


I / 

4 


| * 

< 

t 

I* 


*• 

j 


f 


t 


Subroutine  TANKER  is  called  r oin  the  MAIM  program  cud  it  produces  a 
listing  of  the  tank  production  tile,  if  so  desired 
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i 


'VJrrUUl  / 


irUrX* 

\im^)  *LM‘ 


/ lWV»»  X 

/ FI MaUI) 


\my 

j pfitsy"  ,al  t 

i^cju>^ectu>*>' 

U«W)'"AtTCU*‘ 


iiaa.s) 

• •wl«  o\ 


i%a3)-IS^7  1)  j 
l8U,0:I8U/»> 

-ItV.  l 21  j 


iKO^wSl 


/WWTGlll 

uV 


fyirrte  ii  V 
HENOiWU 


[CALL  UVT 


.W: 


/eFSou)  “ 

.ai.iZ , j 

i i»u>  ‘i 

\ l-J.ID)  v>l' 


^ /JOT. 

t uwuis 


/ee^u) 

flBU,M 


Ll 

o*»esl$KTfcoe. 

owesuV-"1 

IBfclSVlEMfr 

iB&U^urio^ 


'CIODtt) 

ieu.3) 

. isi,ieio0 


ftBUV'WAVtel 

ftRlbV"^v^t 


OIL  CO* 

IU.11/ 

CA4.L  CU»* 

IWli 
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j ANK  I Ii  tr  - ******  w-  * * **  **  **  ***** 


1 /joe ************ tank  r *. ju ri’Ui  > r> :• 

2 I / 40  MU  : uliTNETANK  R 
2 I 750 sure 
1 760  WRITE  ( III) 

2 | 770  1 EOEMAT  t 76( ,l*"  ) ) 

1/00  1)021  = 1,4 
2 I 790  20NES  ( I ) = .T9Ui:. 

2 I BOO  U()3 1 =5, 10 
013! 0 30NES(  I ) = .!  ALSO. 

1 020  I E ( . NOT . H LAO ( 1 2 ) ) GO  10  256 
1 -O  ' 10,  0(5  )=0NES<6)  a. TRUE. 

I -Ao  Ir  U5)=IBI  (6)=LEN0 
i 050  AB(  5 )="MTHVAR" 

I860  AH  ( 6 ) =,,CUMVAR  " 

I 0 70  256CON1 INUE 
2 1 880  I B’U  1 ) = LEN 
2 1 B90  If- 0(2)=LEN 
>1900  1 i ( 3 )=LENO 
>1910  I!iti<4)=LEN0 
21920  AR( I )="  REO" 

2 1930  A B( ?)-"  IEQCUM" 

21940  AB( 3 ) ="  ACT" 

>195  ) Al  t 4 ) -n  ACTCUM " 

21960  D()i  000KU=1  , MEL 
>1970  <V R I i c(  111) 

2 I 980  C A ELSE  7 SCI (2 , X<  KU  ) ) 

2 | 9990 *********** *R EAD  INITIALS  AN!)  NAME  OT  KUth  VEHICLE************ 
*2200  ) REAL (2 ,30)1 1 , 1 2 , ( I A ( I ) , 1 = I , IDI V 1 ) 

’20  1 Oc************rea.)  the  required  production  LINE  ****** *********** 

1020  PEA!) (2, 4)  ( in<  1 , 1 ) , 1=1  , LEN  ) 

72030C*** ****** ***REAO  THE  ACTUAL.  PRODUCTION  L I NE ********** **** **.  *** 
22040C******  18(1,4), I=! , LAST  MONTH  IN  PAST,  EQUALS  THE  EAST  ******* 
> 2 )50  30EORMAT ( 4X  ,2  I ) ,40A2) 

22060  4E0RMAT (4X , 1215) 

2u  /OC****  ***  *****1  0(  1 , 2 ) RILL  CONTAIN  THE  REQCU  LINE************** 

22 080  CA LLCUM ( I ,2 , 1 I , LEN ) 

>20i;nC************I  B(  1 ,4 ) WILL.  CONTAIN  THE  ACTCUM  LINE************** 
>2 I 00  CA LLCUM (3,4,12, LENO ) 

221  I 0 DO  87 1 1=1 , LENO 

>2120  I B< I ,5 ) =1 U( I , 3) — I R< 1,1) 

22130  871  IB(  I , o) =1 B( 1, 4) -I  8(1,2) 

.2140  WRI TE( 1*7) 

22150  7E0RMAT ( /// ) 

.72160  RPITH(llS) 

221  70  WRITEd  16) 

. 2180  WRI  TEC  1*5) 

72190  brORMAi ( I 4X  ,38( "*"  ) ) 

>2200  6E0RMAT ( I 5X ,"MoO/M48  TANK  PRODUCTION  REQUIREMENTS") 

22210  WRI  i'EII  « 1 3)  ( I A(  I), 1 = 1 ,IDIV1  ) 

>2220  I 3h()RMAT(///,  IX,  "WEAPONS  S 7 ST  EM  NAME  i ",40A2,//) 
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FOOT  (Ends  Frograr.) 


S'lbro  ti  FOOT  ■ t vd  from  t • e MAIN  pregr£  ’’  it  .loses  ' ikc.hl 
file  r tid  prl'  ts  3 lines  of  ••  a rs  aid  paces  upon  th  ts 


• • • ■ . - • - 


r 
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Appendix  A 


Appendix  A contains  the  input  files  described  in  Chapter  2 and  used  in 
chapter  3. 


' '.A  t 

1 ^ 

2100 

2 10J 

3100 

0 

0 0 

6 

0 

2 0 

0 0 

0 0 

0 

Gl)(M  ' 1 

J 1 

"0 

40 

40 

/ ) 

40 

; ..J 

47 

■ 7 

CO  00  9 

1 i 

• > 

;‘-N 

,i  7 

oo 

63 

70 

7 0 

73 

7>: 

76 

Will 

1 

< 5 

7:> 

76 

76 

75 

75 

73 

/ 3 

j oo : ! 

1 i 

i :» 

75 

76 

75 

7:> 

75 

75 

l !-> 

0 

000  i 2 

1 ■ 

40 

40 

•10 

40 

40 

40 

45 

1 0 

50 

0001  3 

1 9 

50 

3 5 

60 

0 

o 

0 

0 

0 

0 

000  1 4 

! 

0 

0 

2Gu34 

KOUiir 

00015 

? 2 

31  00 

3 1 00 

99  0 

0 

0 0 

0 

0 

0 G 

0 0 

0 0 

0 

000 1 6 

2 4 

40 

40 

I SOCj 

1C 

1 5JI.AM: 

> A; 

5'  OL 

000 1 / 

2 3 

40 

40 

40 

40 

40 

/ *•* 

47 

47 

47 

000  [ 3 

2 0 

44 

30 

33 

46 

45 

4 6 

4 6 

45 

45 

000 1 9 

2 7 

45 

45 

45 

4 3 

45 

46 

'tU 

45 

45 

00020 

2 P 

45 

45 

45 

45 

46 

4 6 

46 

4 3 

0 

0002  1 

2 9 

*0 

40 

40 

40 

40 

43 

4 V 

4 7 

47 

000  22 

210 

44 

30 

33 

0 

0 

0 

0 

0 

(5 

00023 

211 

0 

0 

99CHT; 

rsLcfl 

00024 

212 

0 

0 

0 

0 

0 

0 

0 

0 

0 

00023 

213 

15 

30 

30 

30 

30 

30 

30 

30 

30 

00026 

214 

30 

30 

30 

30 

30 

30 

30 

30 

30 

00027 

215 

30 

30 

30 

30 

30 

30 

30 

30 

0 

0002:". 

216 

0 

0 

0 

0 

0 

0 

0 

0 

) 

(>0029 

21  7 

15 

30 

30 

0 

0 

0 

0 

0 

0 

i r;v 


12U 


i ! 0 


00003 

1 

<- 

0 

u 

/ f • 

4' ' 

4 

/.  , 

40 

40 

> 

4 7 

. / 

w0004 

1 

3 

30 

92 

33 

39 

60 

63 

o2 

63 

63 

70 

1 

OOOO'j 

1 

,1 

73 

77 

'■.0 

GO 

00 

30 

30 

73 

73 

69 

0 '■ 

DO  "'Go 

1 

) 

30 

43 

40 

33 

33 

20 

23 

20 

0 

0 

G 

00' '07 

] 

0 

c 

0 

40 

40 

40 

40 

40 

40 

43 

49 

00004 

1 

7 

49 

32 

37 

0 

0 

0 

0 

0 

0 

0 

0 

00009 

2 

1 

0 

0/160  A 

O 

000  1 0 

o 

2 

00 

00 

00 

0 

0 

0 

0 

0 

0 

0 

0 

000 ! 1 

2 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

•j 

000  1 2 

2 

A 

» 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

000  i > 

p 

3 

3 

3 

7 

3 

0 

a 

10 

10 

0 

0 

0 

000 ! 4 

6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

000  I 0 

2 

/ 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

000 1 6 

3 

1 

0 

OA  VLB 

000  1 7 

3 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

000 1 0 

3 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

COO  1 9 

3 

4 

0 

0 

0 

0 

0 

0 

2 

2 

4 

4 

3 

00020 

3 

!J 

3 

7 

c 

3 

a 

8 

8 

3 

0 

0 

0 

00021 

3 

6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

000  22 

3 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

READY 
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Appendix  B 

Appendix  B contains  the  terminal  output  for  the  production  run  described 
in  chapter  3. 


( Sr.  v , SUM , tLi  ,CTS ,'i  Au  .DAY  » 1 VAR ) 
JL'FAULT  ( 0 l , J , 0 , 1 , 1 , 1 , 1 > 
.■■I,  t-'UI?l'Hfc£W  IKbTRUCi  IONS  i YP  i -1 


> Ir  - .1:  S.OOTHIi.V  ROUT Iii.!  IS  TO  BE  USED  A ID 

S,a=0  (UtlHRrtlSE 

It  DO  COMPONHD  IS  ARE  TO  BE  USED, 

VI  IE  COMPLETE  OUTPUT  IS  TO  BE  PRINTED 

. . SU  IMARY  OUTPUT  IS  TO  BE  PRINTED  ADD 

r i i-|  I 1 it.  El  .OAT  RODS  ARE  TO  BE  PRINTED  AND 
i;LT=0  It-  THEY  ARE  NOT 

CTS=I  I.-  THE  CONTRACTOR  SCHEDULE  IS  TO  BE  PR  I NED  AND 
CTS-0  Ir  NOT 

i’AI  1 Ir  lNE  TA UK  i i LD'  IS  TO  BE  PRINTED  AT'  THE  END 
Or  THE  OUTPUT 

TAK-=0  It  IT  IS  NOT  TO  BE  PRINTED 

>AT»I  Ir  T.ir  CURRENT  DATE  IS  TO  BE  PRINTED  AT  THE 
TOP  OE  THE  OUTPUT  AND 
DAT-0  Ir  IT  IS  NOT  TO  BE  PRINTED 

J = 1 Ir  THE  TIME  OE  THE  REPORT  IS  TO  BE  PRINTED 
TIMaO  Ir  If  IS  DOT  TO  BE  PRINTED 

V.A  :<  - 1 Ir  VARIANCE'  AhD  CUM  VARIANCE  TO  PE  PRINTED 
VARbO  Ii-  NOT 

TYPE  ID  THE  CONTROL  VECTOR 

( SMT .SUM  .ELI  ,CT;:>  , TAK  .DAY  ,T  IM  ,VAR  ) 

OLrAULT  (0.1. 1.0,1. 1.1.1) 

l-OR  FURTHER  INSTRUCTIONS  TYPE  -I 

? 1 , I , 1 , 0 , I , I , 1 , I 


l'ANk  EILE  NAME 
? TNK 


UMPONEDi  EILE  NAME 

? BBYY 


CIKXPiP  i ; IF:  COMPONENTS  FROM 
THAI  YOU  WANT  T ) CONSTRUCT 
TYPE  -I  FOR  A PIANO  ROLL 


i HI-  rOLEONING  LI  Si 
A PIANO  ROLL  LOR. 
OP  ALL  COMPONENTS 


1 ) POWER  PACK 

2)  GUN  MOULT 


? -i 


./J1PUL  PILE  NAME 
? STVEE 


PHE  PILE  ALREADY  EXISTS.  DO  YOU  WANT  TO  OVERWRITE  IT? 
A NS.  YES  OR  NO. 

? YES 


***************** *** *********************************** *******-"  ** ** ****** ** 

THE  CURRENT  COMPONENT  TO  PE  SM(X)THED  IS* 

POWER  PACK 


*************.' <*  **************************************  ********  ******  *>.*****. 


TRIAL  COMPONENT  SCHEDULE i 
THE  FIRST  YEAR  IS*  1976 


J p 

M 

A 

M 

J 

J 

A 

S 

0 

N 

D 

8888888  388888  88 

58 

61 

67 

75 

75 

75 

75 

75 

7 5 

75  75 

75 

75 

75 

75 

75 

73 

65 

60 

58 

57 

55  51 

49 

46 

43 

38 

0 

0 

ill  TO  PRINT 

THIS 

COMPONENT, 

YES 

OR  NO. 

? NO 
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i ********************  ****************  *******  ******  ********  ** 


MO!  'It- 1 ED  MAXIM  UN  PRODUCTION  SCHEDULE* 


THE  HIRST  /EAR  IS*  19 76 


J 

F 

M 

A 

M 

J 

J 

A 

.’5 

0 

N 

0 

80080  8B088< 

.8888 

63 

70 

/O 

75 

75 

75 

75 

7 5 

/•J 

75 

75 

75 

75 

75 

75 

76 

75 

75 

7 5 

75 

/b 

75 

/5 

75 

76 

lb 

75 

/o 

75 

(\  M'I\  CHANGES  TO  THE  SCHEDULE  IN  THE  FOLLOWING 

> ,fJ  <*.  A i / * ♦ ■ I « 1 * . ■ v • » * « U t D *• 

CA.;  ..AS  R.-.lURN  ArffiR  LAST  CHANGE 

7 H'i  1 1 , t 1 

7 


.•**★***•**  * • **************  ************  ************  ********  ****  ************ 

T uAL  component  schedule* 

THE  FIRST  /EAR  IS*  19/6 


.J  F 11 

A 

M 

J 

J 

A 

s 

0 

\l 

i V 

D 

o<b8888. 38880 

63 

6 3 

63 

74 

75 

/d 

75 

rj 

75 

75  75  75 

75 

75 

7 5 

75 

7 3 

65 

60 

VKi 

57 

55  51  49 

46 

4 3 

30 

0 

0 

JO  YOU  WISH  TO  PRINT  THIS  COMPONENT , ZES  OR  NO. 
? YES 


; ************; ************  ******  ******  ********  ******  ******  ****************  A 

Till1  CURRENT  COMPONENT  TO  RE  SM(X)THED  IS* 

GUN  MOUNT 


**  A.  ******  *****************  *********  ***  ***********  ******  **  **********  **  ****  > * 


TRIAL  COMPONENT  SCHEDULE* 
THE  FIRST  If  EAR  IS  s 1976 


J F M 

A 

M 

J 

J 

A 

S 

0 

N 

D 

888038808888888 

70 

63 

73 

75 

75 

75 

75 

75 

75 

75  75  75 

/5 

75 

73 

69 

oO 

55 

53 

50 

47 

43  41  38 

35 

30 

0 

0 

0 

JO  YOU  WISH  TO  PRINT  THIS  COMPONENT,  YES  OH  NO. 
? NO 


***********************************************  ******** ******************** 


■i()U I h I El)  M/\ X I -UJiM  PRODUCTION  SCHEDULE: 


T.  V rIMST  Y FAR  IT*  19/0 


J I-  M 

A 

M 

I 

j 

A -i 

0 

i'4  .5 

88888888888  8888 

75 

75 

75 

75 

75  75 

75 

7b  7 b 

75  75  75 

75 

75 

75 

75 

75 /j 

_ _75 

_7b__  __/b_ 

T5  ~7b  “75 

75 

"75 

Tb 

"75 

7 5 

TYPE  IN  RELATIVE  CHANGES  TO  THE  SCHEDULE  IN  THE  FOLLOWING 
FORMAT  YY,J,FtM,...,N,D  . 

CARRAGE  RETURN  AFTER  LAST  CHANCE 

' H,  lf  i “5  , ~ b , 1 * — I , — I * ~ t » “ I * “ I * “ i 

? 77,Tl,-l 


*****  ******  ******  ************  ******  ******  **************************  *****  i.-yt 


TRIAL  COMPONENT  SCHEDULE: 
THE  FIRST  YEAR  IS*  1976 


J F M A M 


J J A 


S 0 


N D 


888888888888888 

74  74  7b 

43  4 1 38 


70  70  74 

75  75  73 

35  30  0 


74 

69 

0 


74 

oO 

0 


74 


74 

53 


74 

50 


74 
4 7 


)0  YOU  WISH  TO  PRINT  THIS  COMPONENT,  YES  OR  NO. 
? YES 


WHAT? 

! }! >s=M 

******************************* ******** ** **** ******  ******  ** **** ************ 
**********  ★** ******  **************  ************  ******** ****  *********** ******* 
***  ******  ******  ************  ************************  ******  ****************** 
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Pi'i  !:.  I "OCTROI.  V:C[()II 

, i'.i:  V|-U  .Cl  , TAK  ,D  Ai  , 1 Ir  , J,U) 

; t\  l!  i ( .1,1,  D *1,1,1,)) 

• ■■'ft  I JR  R I.I.'I  IJCi  IONS  * VP::  -1 

? o, I ,U, 0,0, 0,0,0 

rllh.  NAME 
i TNK 

,'OMf’OiJh. : i TILE  NA.'.U: 

? fiiYY 


i i . i-RO'.i  fill:  FOLLOWING  LILT 
. V,.\Ni  i CONSTRUCT  A PIANO  ROLL  TOR. 
TV'  I i .)R  A P J Ali 0 ROLL  OH  ALL  COMPONENTS 


I ) : wrtER  PACK 

2 ) GUN  M(  JUT 


? -I 

OUTPUT  TILE  NAME 
? STVEEE 

THE.  PILE  1 'TI STS.  DO  YOU  WANT  To  OVERWRITE  IT? 

ANS.  {ES  OR  NO. 

? YES 


. >.  . . / -v  i.  -k  k k'k  -Jraftr  xk  At*  At*  'kkkk'kk  kkirkick  kk’kkki:  kk'k'k'kk  kk’A  ic  ir*:  k'k  k-krk*. 


COMPONENT*  POWER  PACK 


-a  ,s  k'k  V,  k'k  . k k 'k  k~k  k'k  x A \Vy.*  kkk  k ★★  >V  ★ -A**  kkk  k kr;  A-  /,-•*  ynkr 


OPPONENT  * GUN  MOUNT 
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-Wf  * kk’kk'k  kkk  jrkwkkk  kkk  ■kkk'kkkk  kit  k kkk  kkkk  kk  kkk\  kkkk  A A kk  kkkk  * ; 
< < > ' *V  * . ' <!<  t ‘r  kk  k A k k krk  k wr  kk  ■rk  k k k k kk  kk  kk  irk  kkkkkkkk  k'k  ki-  kk  k J k k k k A /•  a k . 

*'■  i * V ■ k '•  kk  kkkkk  k kkkkkk  kk  kick  k kk  kirk  k kk  kkk  kirk  k A * * kk  kk  k k kk  kk  k A / 


•A*  a A v.  .V  -.V  r k r:  ' • 

/ , LI  l« 


v.*  . a .* 


..  . v.  . ,c  a a • • 


. i > 


last  i,f  'hi.-  . . ony  = i/ ■ i / 1 -> 

Unit-  Or  .I'.'-  : . i i >-.0  • / t . 

i i i )r  f-  1 ; I i!  .1 

. I ' • • ■ 

■:>  ,/  i-  ILL  iA  .i*5  XYY 


C( >.f  »>£), *1 : JT  ; I . ■ v I I >r |1  j : i ; I LIN! 
Or  U ALA  iiCl:  r . ' ■ 1C  1 1 ()•  ■ it  It  I ■ 


1 ) POm-.P  HA  Oil 

2)  GUN  :.H)Uli  1 


• if*,  . ; . . k . • > ' A \ V. 


> * *.V  /•  />  < I » «"  A f '/»  . 


• . /."A  XX'*. 


V<r  A vV  A*  vc  x /.*  vV  .V  .V  A .V A .V  V . * irA  A* vV  A:  *x  *,V,V  A*  :r  A*  A*  *.'.  *. : *A* *.*  v‘;  *A  vVvV v'cfr  *.'<  :V  A .V  v'.'.V  A*  ,'r  ,'r.v 

AI60/M43  LIN!:  Or  -ALAOOr  PUOOUCTIOM  HtiQUIRc.lKriVS 

*A>rA”.V  A Avc  'AVrAr  A vV xxx A Ax  *r-A  *A-  V.  A >: VrV:  i:ir  -k'k'frkic'i c A*  V*>~  V -/rA*  vV.VvV'A 


COMPONENT:  POSER  PACK 


INITIAL  VALUL-'S,  ACTUAL*  5 

PI.Aiii’ifti.)  • 0 


LEAD  PlRCEhT 

TI  IE  USE  WEAPONS  SYSTEMS  NAME 


IOO  MoUA I 

100  Mo'H.) 

100  A VLii 
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l • 


j 

r 

l\ 

A 

J 

J 

A 

5 

0 

i 

I \ 

40 

40 

A 

*1 

40 

40 

40 

4 3 

4/ 

4 / 

47 

04 

; 

40 

iK) 

1 

l 

20  1 

240 

263 

330 

3 // 

424 

•1  / *1 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

> 

Vy 

0 

5 

r. 

5 

5 

u 

*7 

t 

10 

1 3 

15 

1 o 

14 

1 

40 

4Q 

4 0 

40 

40 

40 

45 

60 

60 

60 

60 

63 

2 

4 5 

125 

166 

205 

2 46 

290 

340 

390 

0 40 

490 

6 40 

A -k  19/6  ** 


F 

M 

A 

M 

J 

J 

A 

55  59 

60 

63 

63 

63 

74 

75 

L-  OCJ  • J 

561  040 

700 

/68 

831 

894 

9o8 

1043 

A t • , 1 t 

0 0 

0 

0 

0 

4 

1 O 

21 

tl  'r ! 1 : 

9 5 

5 

5 

5 

1 

0 

0 

A Cl  « 

50  55 

60 

CTCtfi  i ♦ 

590  0-16 

705 

S 

0 

i< 

D 

76 

/ 6 

75 

7 

I 3 

1 1 93 

1 268 

1 3^ 

2o 

31 

33 

3 

0 

0 

0 

i 

**  197/  a 

.J  F M A M J J A S 0 H D 

76  75  75  7b  /5  75  75  73  63  60  56  57 

i ,1H  1493  1568  1643  1718  1793  1668  1941  ?00o  2066  2 124  2!  FI 

2 1 1 6 I I 4 2 0 0 0 0 0 0 

0 0 0000000000 


A* 1978 ** 

J F M A M J J A 

51  4 9 46  43  38  0 0 

30  226/  2336  2382  2425  2463  2463  2463 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 0 


- A .V  ******  ******  ************ ***★**+★******★*■**★★  ★**■**•'*★'**  *HrA 


1 


A >.  A 


O')/ 


L i j1  . Oi - 


iLj  [« 


O 


Ui  iJL  I 


,.i  : • 0.<i 

a ' > s • i ( - I »L/.iu)  A.Th-  -iL 

Uii^Kol.i  i 


l.hAP  1 

T I :.i  t U.  > i * AkAl’O.Jo  VO  i i - m3  i.A  .1: 

0 


I 00 
1 00 


f ioOA  I 

r.60A3 
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MU’MH.Iiifi:  C.!i ’YolJiO 


I li I VIAL  VALUES,  ACT'JAL*  •) 

;n.A!:,;bUi  o 


**  I 973  ** 


J 

M 

A 

M 

J 

J 

A 

5 

o 

t i 

I) 

»?EO  ’ 

0 

0 

0 

0 

0 

0 

0 

0 

0 

r' 

U 

0 

0 

REOCU.'i * 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

A C i • 

0 

0 

0 

0 

0 

0 

0 

u 

0 

0 

0 

\ 

AC  J CUi-'i  s 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4- 

v-.r  | 9 76  • 

.••A- 

J 

r 

A 

i.i 

J 

J 

A 

A 

s 

0 

1 - 

1) 

m-o* 

15 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

REGCJ;  * 

1 5 

43 

75 

1 06 

135 

1 6'j 

1 93 

22’.) 

255 

2. 65 

31  5 

3 4:-> 

ACT* 

1 5 

30 

30 

ACTC'Ji  i * 

1 5 

45 

/5 

**  1 9 77  ** 

J 

I- 

M 

A 

m 

J 

J 

A 

S 

0 

A 

5 

i irv)s 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

20 

* 

niiOCiJY* 

3 / 5 

405 

435 

465 

495 

525 

555 

5 i ; 3 

o 1 5 

^ 45 

o7  5 

705 

ACT  * 

ACTCJ  .* 

**  | 9 /8** 

J 

t- 

M 

A 

M 

J 

J 

A 

S 

0 

0 

D 

RHO* 

30 

30 

30 

30 

30 

0 

0 

0 

REQCUM  * 

735 

765 

795 

825 

855 

855 

855 

655 

ACT« 

ACTCUMi 
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I 1 1 AL 

.'ALU1 

i f A l • : 

PL/v.-s  .tin 

40 

*>. 

1 970 

jWt 

.] 

t- 

M 

A 

M 

.j 

J 

A 

s 

0 

l • 

i J 

r ■ . 

•10 

40 

40 

40 

40 

4 0 

4 / 

47 

4 7 

30 

0 2 

1 r > 

.Cl.1  ( 

00 

1 20 

1 60 

200 

240 

2 0.3 

330 

37  / 

4^4 

.74 

32o 

Sol 

. Li 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

ivl.l 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-2 

- / 

A CT 

40 

■ ) 

40 

40 

40 

4 3 

47 

4 / 

1 / 

30 

60 

‘3J 

i oU  ■ 

1 ■ J 

1 60 

200 

240 

203 

3 30 

j 77 

424 

: / 4 

:„*■*.* 
^ /.  t 

7 i 

**  I 9 /6 

• L.t. 

J 

(• 

M 

A L 

J 

J 

A 6 

0 

f. 

D 

l/L-0 : 69 

60 

63 

/O  70 

/ 4 

/4 

74  7 4 

/4 

74 

74 

:t!;CC'J. . • o40 

t U'J 

763 

326  396 

970 

1 044 

111.,  II 92 

1 Loo 

i a.'  j i 

I 4 

. a . . - f r s o 

0 

0 

0 0 

IO 

13 

20  2'J 

27 

2o 

20 

vJLr-Lii  - / 

-7 

-7 

0 7 

3 

7 

6 3 

/ 

3 

/ 

ACi's  39 

60 

63 

ACTCU  v,  i o 3 3 

693 

736 

**1977 ** 

J 

r 

A 

,4  J 

J 

A 

s o 

L 0 

. ' -Q  s 

74 

74  73 

73 

/3  / 3 

69 

60 

•j  0 33 

30  4 / 

' j : 

1 44  i 

137)2  1637 

17  12 

1/8/  1060 

1 929 

1989  ; 

>0  44  209/ 

2 14/  2144 

M *'  I .T  j 

1 3 

10  3 

0 

0 0 

0 

0 

0 0 

0 

3Ul0-  Li  : 

1 

0 0 

0 

0 0 

0 

0 

0 0 

0 0 

A C'l  • 

ACTCUM * 

**  1 9 78  ** 

J 

F 1.1 

A 

/»l  J 

J 

A 

6 0 

1.  L 

REG  * 

4 3 

41  38 

35 

c 

o 

0 

0 

litGClM  * 

2237 

22  /3  2316 

2331 

2301  2301 

2 3 ...  1 

2361 

i.1AiiF  LX* 

0 

0 0 

0 

0 0 

0 

0 

SUPl-LX: 

0 

0 0 

0 

0 0 

0 

0 

A Cl  : 

AClClJ.4 : 

r*  i 

‘k . V.  .•  :V 'k  k rr *. rk  k V:  *.'*  • A**. V ' ’•  •'  • vv 

.'■;60/  '•'•i  3 J 1.  i .»!.•  to  . <•  1 


**  i 97-3  ** 


j 

E 

M 

A 

..l 

J 

J 

A 

5 

0 

it 

0 

REQs 

0 

0 

40 

40 

40 

40 

40 

40 

43 

4 7 

4 7 

4 / 

RhOOlT'. : 

0 

0 

40 

ao 

120 

loO 

200 

240 

2 c 3 

330 

3 7 7 

^ ^ • 

; 9'* 

0 

0 

40 

40 

40 

40 

40 

40 

4 3 

49 

4 y 

A j 

ACi'C  1 ‘i : 

0 

0 

40 

00 

1 20 

1 60 

200 

240 

2o3 

o32 

3.;  1 

MTiiVAR » 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

2 

CUM VAR* 

0 

0 

0 

0 

0 0 
**  19/6** 

0 

0 

0 

2 

<1 

J 

»* 

ii 

A 

M 

J 

J 

A 

r 

0 

A 

r, 

it  EG : 

[)0 

52 

55 

59 

60 

o3 

63 

63 

63 

/O 

70 

70 

RcGCUM s 
ACT: 
ACTCUi.fi 
:.\  i'H  VAR  • 
CU i*. v At?  * 

47  4 
49 
4 /6 

-i 

1 

529 

52 

327 

0 

1 

‘SO  1 
37 
5 j 4 
2 
3 

640 

700 

763 

8 , : o 

0o9 

932 

1 0 22 

1 092 

1 1 62 

** 1 9 / / ** 

J 

E 

A M J 

J 

A 

5 

0 

h D 

RED  s 

7 3 

77 

80 

80  80  80 

30 

75 

73 

69 

60  5:. 

REOCU.i : 

1 235 

1312 

1 392 

1472  1552  1632 

1712 

1 787 

1 860 

1 9 29 

1969  2044 

ACT* 

ACTCU:.; : 
Mill  VAR  • 
CU  4.  VARS 

**  1978** 

J 

r 

M 

A M J 

J 

A 

S 

0 

t\  i) 

!?E0  * 

30 

45 

40 

35  33  30 

25 

20 

REQCUMs 

2094 

2139 

2 1 79 

2214  2247  2277 

2302 

2322 

ACT* 

A'  i C J i • 

..uvars 
CUM VAR » 

139 


0 


0 


0 


0 


0 


cu; . var 


**  | 976** 


J 

r 

M 

A M 

R !iO  * 

0 

0 

0 

0 0 

REGCUM : 

0 

0. 

0 

0 0 

ACT * 

0 

0 

0 

ACTCUM ' 

0 

0 

0 

MTHVAR : 

0 

0 

0 

CUM VAR  * 

0 

0 

0 

**  1 977  ** 

J 

F 

M 

A M 

REG* 

0 

0 

0 

0 0 

RHCCJm * 
ACj  * 
ACTCUM * 
MTHVAR * 
CUM VAR » 

0 

0 

0 

0 0 
** 1 978** 

J 

F 

M 

A M 

RFO* 

3 

5 

7 

8 8 

RF.OCUM  J 

ACT* 

3 

8 

15 

23  3 i 

A'  I C<  1M  * 
, '.ill  VAR* 

cum var  * 


-A  -vA'  A A A ,v  A V *V  A k >r  A A-  A A A A \k  A . A-  A A A".'1'  A V;  A-  k . A >.•  V; 

■ mi/.1  ’ < YANK  i . . m J I LiilS 

A ..  . ; A>.  - v.'A  1 A a '<  A v a A a . •-  * r<  'A  tvc  A a . /.  /*  ‘A  .•/:>.  /.A  A 


’.•itAI-'ONS  SYSl'I-i . NAFF*  AVL3 


■Jr*  I 9 /3  ■A'1'' 

J F M A M J J A s 0 N D 

RFC*  0 0 0 0 0 0 0 0 0 0 0 0 

RtOCU.M : 000000000000 

act*  0 0 0 0 0 0 0 0 0 0 0 0 

ACYiAJ.i*  000000000000 

■A  it  1 VAR  * 0000000000  0 0 

CUNVAR*  00000000000 


**1976** 

J F M A M J J A S 0 N D 

RFC*  0 0.  00  0 0000000 

RtUCUF:  000000000000 

A Cl  * 0 0 0 

ACTCiJ.i*  0-0  0 

MTU 7 \R  * 0 0 0 

CU.  VAR  s 0 0 0 


**19  77  ** 

J F rf  A M J J A S 0 N D 

RFC*  0 0 0 0 0 0 2 2 4 4 5 5 

REiOCUT  t 0 0 0 0 0 0 2 4 8 1 2 1 7 22 

ACT  i 
AC  i CLJm  * 

MTU VAR « 

CULVAR* 


**  I 970** 

J F M A M J J A S 0 N D 

RFQ*  5 7 8 8 8 8 0 0 

REOCUMi  27  34  42  60  ‘38  66  74  82 

ACT* 

A o i * 

:rruvARi 

CU/.WAH  * 

1U 


!'!i  I! 


, : "•  r").;rr>Di.  vector 

• 1 i * « ■ * T • 1 

^ V • * l » 1 I % 1 * I 

i-  i '.If  ;>  ; :'JC;  IG..J  * l'PE  ~1 

V , I , J ,1 . , 0 , " , i>  1 O 

• rii.il  : ; A.-.iz 


ILL  la; 


) 

) 


im  rs  FROM  THE  FOLLOWING  L 1ST 
, WANT  TO  •;}  1 STRUCT  A PIANO  ROLL  FOR. 

, 1 FOR  A lAiiO  ROLL  OF  ALL  COMPONENTS 


t)  PO.-JFR  PACK 
, ) GUN  MOUwT 


? -1 

OUTPUT  FILE  NAME 
? ST  YE  lr  0 

i ; ! ■■  ■■'{  Xi  IfS.  DO  YOU  WANT  TO  OVERWRITE  IT? 

A • ' • it-  * J ‘ \ i*0. 

? YES 


* v •<****  Jr**  * **  irk  **  *•*  * * **  ****  *•*  **•  ** ■**•**  ■*rk  •irk  irk  irk kk  Irk  * * *-/r  * 

v )|  >OHP;oT«  POWER  PACK 


-/  A-V  .V*  >-*  **>':*■*•*****■>.-■*  **********★★***•*****★»•***>.-';'<■+'*  *V.-*  ***  * Jr**^r 


COMPONENT*  GUN  MOUNT 
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V -v*  «■!;>:  A >•**•'■**  *****  ***  ******  *********  *****  **  ***•*  ******  *+ 

I :■  ' >••***  At  •*****•.'.***•***  irvr*  **********************  ***>’.  .■'•■*  ** * V-.:  «*.. 

>..••  * > < **  A*  rt-.V  ******  kirk  kirk  •.*-**-r*».  ******  *»V  ******  *■;•****  *>.*>':**  V **  **.r  .Vv' 


ki:  k :rk±\<->-.  :;-k-k  :rk'k  !<kl;  v'.-v:*  ..'  ‘kiririck  k'ki:  -ki.  k'kki:  •.’.■****. 

(.60/  ; rs  LIT ; : Or  HaL AhCi:  PI  :OUJC  j'I  0. 1 ! ; l-QU  I H - . :i:.»  i*!' 

'k  k k k ’.V  irx  k‘J:  irk'kkkk  kkk  vVvcvV  kkkk  kk'ki.k  k A-  Vr  * -A  v.  .V  *.<:v  .'rvr  'V'.V  kkk  ,< 

CO,., POOL. ii  * PO.ILW  PACK 

Itlli'IAL  MLULU,  ACTUAL*  5 

PLAi  i.JHD*  0 


LEAD  PERCENT 

TIME  'J3 *r  ivEAPOTS  bYSTtfiS  n AML 


2 

2 

2 


I 00 

too 
1 00 


'■‘60  A I 

I..OU  A 3 

AVI.) 
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iv/ 


J 

r 

:\ 

A 

<•1 

J 

J 

A 

L> 

0 

*• 

r\ 

4 J 

40 

40 

40 

40 

43 

47 

A i 

47 

L>  v_7 

f.)2 

40 

80 

1 20 

1 60 

200 

240 

263 

330 

37  7 

4 24 

4 74 

52;.' 

ACT* 

40 

40 

4u 

40 

40 

40 

45 

50 

80 

50 

5o 

5- > 

A 1 id'.* 

45 

85 

126 

1 66 

205 

245 

290 

340 

390 

440 

49  u 

340 

5C7.-  19  76  ** 

J 

T 

M 

A 

M 

J 

J 

A 

5 

0 

i i 

D 

* 

59 

o 0 

53 

63 

67 

75 

75 

75 

75 

75 

~ i ~ 

licC  Oil,'  : 

1 

o 40 

700 

763 

826 

893 

96  6 

! 043 

1118 

1 1 93 

1 2o8 

1343 

ACi  : 

)G 

55 

60 

ACTCJM* 

590 

045 

705 

**  19  7/ 

-J 

F 

M 

A 

M 

J 

J 

A 

S 

0 

8 

0 

(iEQj 

75 

75 

75 

75 

75 

75 

75 

73 

65 

60 

53 

57 

REQCU.M  j 

1413 

1493 

1 568 

1643 

1 71  8 

1793 

1 868 

1 94  1 

2006 

20  66 

2 124 

2131 

ACT  s 

rcu.M  j 


**1978*-* 

i r M A M J J A S C)  N 0 

5 ) 49  46  43  36  0 0 

<9  2 87  2 336  2382  2425  2483  2468  2463 

ACT: 

ACTCU  i » 
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k*  i.  kic!.  7 - « A A ' " 

■;  /.  •„•  * a-  .c  . -<  v • 

,'■<!)/  < '■■■  l-i 

k i A A A A- 

• • ■ 

. . A / .V  . . ■ : . >■  *'■ 

CO. . POi i • O' 

ou..  r 

SUPPLIERS*  ROCK 
CHRY1 

ISLAND  ARSENAL 
>LhR 

LEAD  pt-PCH^i 

rr.it-  use 

weapons  SYSTEMS  hA 

r 


im  r i 

AL  7 A 

LOi::  , 

1 

ACl\ 

>LA  ■ ii 

J A L s 
It-.IJ: 

:k  1 y i‘j 

<•  J 

A 1 

< A 

J 

r 

A 

A 

J 

j 

l\ 

s 

0 

r.  0 

-10 

40 

40 

40 

40 

43 

4 7 

4/ 

4 / 

40 

62  *3  > 

• V, 

A i 

vcn  :iimi 

oO 

l 20 

U.O 

200 

240 

2o3 

33  ) 

3 (7 

424 

• 4 l A 

,i  5'jl 

41 

40 

40 

40 

43 

4 / 

47 

47 

:>0 

3 0 60 

j2  4 6 74 

tiO 

1 20 

160 

200 

240  233 

**  1976  ** 

330 

37/ 

424 

*■»  /' T 

J 

f 

A 

M 

J 

J 

A 

( * 

v > 

0 

i;  .0 

Ri:Q 

Rb'OCUO 

ACT 

AcTCUm 

44 

80 

3 3 

40 

33 

44 

45 

45 

43 

4 j 4 5 

626 

44 

618 

685 

30 

o48 

680 

33 
6b  1 

/2  1 

764 

/y  / 

34  2 

887 

932 

y / / 

1022  1067 

**19  77  ** 


J 

8 

a 

A 

nl 

J 

j 

A 

r 

0 i . L> 

2 30 : 

46 

46 

46 

46 

4 6 

43 

39 

30 

2 5 

23  20  ! / 

R120CJ. ! : 

i 1 1 2 

1 1 57 

1 202 

1247 

1 292 

1 336 

1 374 

1 404 

1429 

1182  1472  1489 

ACT: 
ACTCU  : 

**  1 V 7 3 

1 

J 

r 

/I 

A 

a 

J 

J 

A 

S 

0 i;  D 

k* 

RcO* 

1 3 

1 1 

3 

5 

0 

0 

0 

0 

RbQCU,.' : 

1 502 

1613 

1 52  1 

1620 

152  6 

152o 

1 6 26 

1520 

ACT: 

ACTCUiV. « 
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Appendix  C 


I GSA  Dependence 

There  are  several  elements  within  the  program  which  might  have  to  be 
changed  if  the  program  is  p’aced  on  any  system  o:°er  than  CSA,  The 
following  is  a breakdown  of  these  statements. 

a.  $SAV  - This  causes  an  object  listing  of  the  program  to  be  saved, 
b $NDM  - This  statement  causes  the  diagnostics  to  be  eliminated. 

c.  $RPC  - This  causes  the  common  statement  to  be  implied  within 
all  subroutines  containing  this  statement. 

d.  PRINT  - Same  as  a write  statement 

e.  READ  10  - Read  from  terminal  using  format  10. 

f.  CALL  OPENF  ( ) - Open  a file  for  input/output . 

g.  LINE  N = 95*(l+2**8+2**16)  * Sets  line  equal  to  

h.  CALL  SAVSCT(2,]A)  - Causes  the  location  currently  being  pointed 

| at  within  file  2 to  be  placed  in  !A. 

i CALL  SF.TSCT(2,IA)  - Sets  the  pointer  to  file  2 at  the  location 
indica  ted  by  1A . 

j.  CALL  EXIT  - Closes  all  files  and  exits  from  the  program. 

k.  WRITE  (1;5)A  - Write  the  value  of  "A"  onto  file  1 suppressing 

j < line  numbers . 

l.  READ  13,42) (J) ,KK«1,20)  - ,J  will  contain  the  last  element 
read  (20th)  from  file  "3". 

m CALL  CLOSEF( 1 , OUTPUT)  - Close  file  1 using  the  name  found  In 
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ou (put 


r 


These  are  the  mos t ohvious  difterences  which  might  oc  ur,  but  other 
incompatibilities  may  occur  wien  this  p tog ram  is  implemented  on  other 
sys terns . 


Appendir  > 


VAK  FABLES 


1 FLAG(12)  - Oontrol  Flag 

2.  NED  - Number  of  components  to  be  worked  with 

3.  NEL  - Number  of  vehicles  in  tank  file 

4.  L(120)  - Working  variable 

5.  X(120)  - Pointer  variable 

6.  XX  - Pointer  variable 

7.  J 1M  - First  month  of  the  program 

8.  JlY  - First  year  of  the  program 

9.  J2M  - Last  month  of  the  program 

10.  J2Y  - Last  year  of  the  program 

11.  J3M  - Current  month 

12.  J3Y  - Current  year 

13.  ONES (121)  - Control  Flag 

14.  IDIV  - Length  of  names  in  files 

15.  IDIVl  - IDIV  + 2 

16  LEN  - Total  number  of  months  in  program 

17.  LINE  - 95*(  1+2 **8+2**  16)  = (3  Underlines) 

18.  NUMZ  - Calendar  years  in  the  program 

19.  NUMU  - Number  of  lines  per  record  - 1 

20.  NUMY  - Number  of  historical  calendar  years 

21.  LEN0  - Number  of  months  of  historical  data 

22.  LEN1  - LEN0  + 1 

23.  LENZ  - Total  number  of  items  in  record 

24.  LENU  - Total  number  of  items  in  historical  period 
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25.  YY  - Poin’ui  variable 

26.  Y(120)  - Pointer  variable 

27.  LANK  - Contains  tank  file  name 

28.  COMP  - Contains  component  file  name 

29.  CONT  - Contains  contract  file  name 

30.  OUTPUT  ■ Contains  output  file  name 
31  TOD  - Time  of  day  program  run 

32.  DATE(3)  - Current  date 
'3  7.Z  - Pointer  variable 

34.  Z(120)  - Pointer  variable 

35  LE(120)  - Working  variable 

36.  LPU(120)  - Working  variable 

37  IA(120)  - Working  variable 

38.  LQ(120)  - Working  variable 

39.  ICT(120)  - Working  variable 

40.  ITT(120)  - Working  variable 

41  iTP(120)  - Working  variable 

42  ]CP(120)  - Working  variable 

43.  JEPM  - Print  parameters 

44.  JEFY  - Print  parameters 

45.  LN  - Number  of  months  in  future  -1 

46.  LP  - Number  of  months  in  future  +1 

47.  LENF  - Number  of  months  in  future 
48  NUM  - Number  of  suppliers  in  record 
49.  TBBM  - Month  a schedule  goes  bad 
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50.  IBBY  - Year  a schedule  goes  had 


* 


51.  [EBM  - Month  a schedule  recovers 

52.  IEBY'  - Year  a schedule  recovers 

53.  1END  - Deficit  at  end  of  program 

54.  IB(120,10)  - Working  variable 

55.  IBB  (10)  - Working  variable 

56.  IBL  - Working  variable 
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Appendix  E 


Appendix  E contains  a compLete  listing  of  this  piano  roll  program. 
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r 

lOOIOSSAY 

10020'  CURRENT  Ac  Or  28  JULY  1976 
I 0030C  nil  1 5 TH  : .‘A  I'*  31300  JOt  * t > JURA.' 

1 O )40$NIV, 

1 0050$ RPC 
I 0060 $TTY, 76 

1 >'/0  LOG  ICALFLAO  ( 12)  ,.)NES(  121  ) 

FLAG,  JED,  IE;L,  L(1 20) , X ( 1 20  ) ,>  . , J U , .. 

II DI  , I . 5 . ' ■ . , . • ■ , . 01  , Y Y , Y ( 

it;  . , co  l ,oo  it,  ■ jt,  r >i  ,uate(  j)  ,zz,;  1 1;  . >o)  ,1  p ■ < i . . , 

1 0 ! 101LQ(  1 20) , ICT(  I 20  ) , ICP(  120)  , ITT(  120),  ITP(  I ,JEi  , JlFY,LN ,Lr ,LEN< 
, IBRY , I EBM, IEBY , i N , IB( 1 20, 10) , I ( 10)  , ( 1 ), I < 

0130  100001051=1 , 12 
IOUO  l 05L(  I ) = l 


1 0 1 50 

L ( 1 ) — 0 

10160 

L ( 4 ) =0 

10170 

PR INI  ,» 

TYPE  r 

N THE  CONTROL  VECTOR" 

10180 

PR  I ill," 

(SMT,SUM,FL.T,CTS,TAK,1)Aj  ,TI  - ')" 

10190 

PRINT," 

DhF  AUI 

i ( 0 , 1 , 1 , 0 , 1 , 1 , 1 , 1 )" 

10200 

PRINT," 

FOR  FURTHER  INSTRUCTIONS  TYPE  -1" 

10210 

READ, (L 

( I ) , 1 = 1 

, 10) 

1 0220 

I F ( L < 1 ) 

•ME. - 1 > 

GOTO  1 10 

10230 

PF I NT, 

\ 

1 0240 

PRINT," 

SMT=I 

Ir  THE  SMOOTHING  ROUTINE  IS  TO  BE  USci)  AND  " 

10250 

PRINT," 

SMT=0 

OTHERWISE" 

10260 

PRINT, 

10270 

PR I NT," 

SUM=2 

IF  NO  COMPONENTS  ARE  TO  HE  USED," 

1 0280 

PR INI  . » 

SUM=  1 

IF  COMPLETE  OUTPUT  IS  TO  BE  PRINTED" 

t 

10290 

PRINT," 

SUMO 

OF  ONLY  SUMMARY  OUTPUT  IS  TO  BE  PRINTED  ANL" 

\ 

1 0300 

PRINT, 

1 03  1 0 

PRINT, " 

F LT=  1 

IF  THE  FLOAT  ROWS  APE  TO  BE  PRINTED  AND" 

10320 

PRINT, " 

r LI  =0 

IF  THEY  ARE  NOT" 

10330 

PRINT, 

10340 

PRINT," 

CTS=  1 

Ir  THE  CONTRACTOR  SCHEDULE  IS  TO  BE  PRINEI)  A,. 

1 0350 

PRINT," 

CT5=0 

IF  NOT" 

10360 

PRINT, 

1 0370 

PRINT," 

TAK=  1 

IF  THE  TANK  FILE  IS  TO  BE  PRINTED  AT  THE  END" 

1 0380 

PRINT," 

OF  THE  OUTPUT" 

\ 

1 0390 

' IT," 

T A K =0 

IE  IT  IS  NOT  TO  RE  PRINTED" 

10400 

PRINT, 

10410 

PRINT, " 

DAT=  1 

IF  THE  CURRENT  DATE  IS  TO  BE  PRINTED  AT  THE" 

t 

1 04  20 

PRINT, " 

TOP  OF  THE  OUTPUT  AND" 

■ 

10430 

PRINT," 

OAT  =0 

IF  IT  IS  NOT  TO  BE  PRINTED" 

10440 

PRINT, 

l'* 

10450 

PRINT," 

T I M = 1 

IF  THE  TIME  01-  THE  REPORT  IS  TO  RE  PRINTED" 

10460 

PRINT," 

TIMO 

IE  IT  IS  NOT  TO  PE  PRINTED" 

10470 

PRINT, 

1 0480 

PRINT," 

VAP=I 

IF  VARIANCE  AND  CUM  VARIANCE  TO  BE  PRINTED" 

10490 

PRINT, " 

VAR=0 

IF  NOT" 

105  00 

PRINT, 

b 


\1 

A 


r 


I O'.  I 0 GOTO  I 30 
10520  1 I0CONTINUF 
10530  001201=1 , 12 
10540  FLAG! I)=.TRUF. 

10550  1 20 1 F ( I.  ( I ) . EQ.O  )FLAG(  I ) = . FALSE. 

10560  I F ( L ( 2 ) . EQ. 2 ) FL AG( I ! )=. FALSE. 

10570  FLAO( I 2 )=FLAG(6 ) 

1 0580  OA! LIN  ITT 
10590  IF ( FLAG ( I I ) )CALLIN1TP 
IOoOo  I F ( FLAG (4 ) . AND. FLAG ( I 1 ) ) CALL I N I FN 
10610  C ALLHEAL) 

'06200*********************  END  MA  IN  -2  *******************************  / > *• 
10630  IF ( . NOT .FLAG(  I 1 )) GOTO  I 6 
I 0640  DO  I 301  = 1 , NED 
10650  CALLROLLER ( \ ) 

10*60  OA! LSPLIT ( I ) 

106  70  CALLPRINT(I) 

10680  130C0NTIJUE 

10690  16C0NTINUE 

! 0 /GO  I F ( FL AG ( 5 ) ) CA LLTANKER 

10710  CALLFOOT 

10720  CALLEXIT 

10730  STOP 

10/40  END 

I 0 / 50C ******************* **  END  MA IN -2  ***************************  *******^ 

10/60  SUBROUTINE  IN ITf 

10 //DC**>  ***********1  INITIALIZES  VARIABLES  AND  SETS  POINTERS  IN  TANK  FILE*** 

10 760  SR PC 

17/53  PRINT, "TANK  FILE  NAME" 

10600  READ  10, TANK 
10610  1 OFORMAT ( A6 ) 

I 0620  OALLOPENF ( 2 .TANK ) 

10630  I D I V 1 =26 

1 0 8 4 0 C **********  * **RE  ADS  DA  fES*************  **  ******  ****  **  ******  ★***  **  **•*'*  ** 

I 0850  READ! 2,3)JI M, J 1 Y , J2M , J2Y , J3M , J3Y 
I 0860  3 FORM AT ( 4 X , 6 1 2 , 40A2 ) 

i ob/I  ) c***** ******  ** initializes  var i a p le  s ********* ***  *******  **  ***  * ********  ** 

10  80  L INF=95*( 1 +2**  i+2** 1 6 ) 

10390  LFN  = 1 2*(  J2Y-J  I YJ+J2M-JIM 

10903  NUmZ=J2Y-J I Y 

10910  N(JMY  = J3Y-J  I Y 

10920  NU  . V=NUMZ+tlUMY 

10930  JLi  Y=J3 Y 

10940  JErf<i=  J3M 

10950  NU  • T:R  = I 2*NU/‘V 

10960  IF  ( J3M.  EQ.  I 2)JF.EM=0 

10970  I F ( J 3 M . EQ . I 2) JEFY=JEFY+ I 

10980  LI:N0=I2*(  J3Y-JI  Y)+J3M-JIM 

10990  LENF=LEM-LENO 

I I 000  L P=L.ENF  + 1 


i i jij  i:.=Lr '^r  — i 
11020  LENl=LGH0+l 

| I ■ ) p ******  *■  ******  A X >:  ** **  f - 1 M j J i ,1  i [ — I ***  vrV  A ***  **********************  **** 

I I040C 

1 I J50C*************THE  VALUE  OF  POINTER  XX  IS  SET  ro  rib'  TOP  Or  TH  - 

I 1 Jc  JC ************  r|-  1 LI*  **  ★ **  * **  ? **  * **  * A * * **  ★ **  * **  * **  * **  **★  * *★  **  * * **  **  * 

I 1070  CALLS A V S CT ( 2 , X X ) 

I 1080  NEL=0 

?00*****-********T!I  ..  /E  LINE  JET  ALUE  OF  POINTERS  ****** 

I 1 1 OOC*************X(  I ) TO  FIE  TOPS  Or  EACH  TASK  FILL  Rr.  CORD** ********  **■ 

HIM  1 CONTINUE 

! ! I , ) READ  ( 2 , 5 , E.  .’)=  4 ) K 

1113)  TrCI.EO.  1 )00T02 

(11^  SOTO  I 

I I ISO  Si-OWAi <?X,  12) 

11160  PCONTINIJE 
I I I 70  I3ACKSPACE2 
lilt  ) N EL=NEL+ 1 
I I 190  CA'  LSAVSCK  2 ,X(  ILL  > ) 

11200  REA 0(2, 5 ) K 
11210  GOTO  I 
11220  4 CONTINUE 
11230  CALLSEfSCT ( 2 , XX ) 

I 1240  RETURN 
11250  END 

1 2 ft* )C* *********** *** ******  END  I N I n ~ 2 v* *********** ***.r**  ************ *** 

I 12  70  SU  (ROUTINE  I NITP 

I l230C*************SbfS  POINTER  IN  CO  POTENT  F I LE  ************************  *• 
1 1290  SPEC 

11300  PRINT,  "COMPOiJE  T PILE  NAME" 

II  ,10  9 PAD  I ,COM 9 

I I 320  lt-0  \ f ( A6 ) 

I I 33'  CM.LOPENt-  (3, CO  P) 

1134  - 9EAD( 3,2)1 
I 1350  2F0R*  \f(4X, 12) 

I I 360  READ ( 3,2)1 

I I 3 70C *********** **C  i ECKS  IE  # Or  VEHICLES  IS  THE  SAME  AN  IN  TANn  r li.r***-* 

I 1380  I E ( I .NE.NEL ) SOLO 7 
I 1390  I H ( I . NE  .0  )O()T04 
I MOO  7 P';  I NT20, NET  , I 

I 1410  20rORMAT(////, "THEIR  IS  AN  ERROR  IN  THE  COMPONENT  rILE" 

I 1420  3,"  N EI.  = " ,15,"  AND  I=",I5,////) 

I 1430  CALL  EXIT 
I | 440  4C0ITINUE 

I 1 450C*** * ******* **T IE  NEXT  LINES  (IP  TO  r I RSI  RECORD  AND  SETS  VALUE 

1 | 4 f 0 C * * * **  **  * ***  **  POINTER  V Y * ******  ********  ***  ********~***7r*******«  • * 

I I 4 70  ri()3  I 1 = 1 , I 
11480  3RHAD ( 3 ,5 )K 
I I 4 90  5E0  MAi'(2X,  12  ) 

I T,00  CALLSA  VSCT(  3 , Y7  ) 
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r K k. 


i 10  J =!  ' 

{■  -r  k -kkkkk  -kkikk  ******  ENt)  liJl  i ' — i * kk  k **  * k **  / , kk  k **********  A ■ 


1530  PR1  iJT2  1 

! 1 40  2 I rORMA  i'(  /////,  5X  , "CMO  >51:  I'iir  COMPONENTS  .-ROM  i IE  rOLLOiilNG  LIST",/, 
5X,  ''THAT  V I WAN!  0 ION  . rPUCI  A PIANO  ROLI  F()(  . ",/,5X , 

Of  '',.>1  -1  FOR  A PIANO  TOLL  Or  A LI  COMPOrt  FNTS 11 , ///) 

1570  6C0NT I i"JE 

I1  i ;kk<-kkk  * ’**  -vSr'fS  VaLIJi.  Or  PO 1 1,  I'Ll?  JO  rlPSI  L II  ■-  Or  EACH  I’fJORD**  * 
1590  RL  Al  > ( 3 , 5 , J ill )=9 ) I 
1600  I F ( I .HO.  I )('  )T0c, 

1610  003  C 16 
! 5 20  SCOOT INUE 
1630  BACKSPACES 
1640  J=J+I 


1650  C A LI  SAVSCK  3,Z(  .J ) ) 

| A k*  •:  ****  A *R  INI'S  OUT  ACTUAL  CO.Mt'Oi*  1*1.  IS**********  **********  ******  > 
167:  U:A 0(3,1  OKI. (I)  ,1  = 1 ,10171  ) 

I 660  I OFOE  v T(  1 6X  , 40A2  ) 

1690  PRINTI I , J , ( L(  I)  ,1  = 1 , 1 D I V 1 ) 

171  ) I I FOR  .’.AT  ( 5X  ,15,")  " , 40 A2  ) 

I 71  J 011T06 
1720  9 CONTINUE 
I / 30  PRINT 28 
1/40  ?SrO:.  MAT C ///  ) 

1750  00121=1 ,120 
1/6)  I 2L(  I ) =0 

I //:)C  v**r  v ******  **R  AD  IN  DESIRE!)  C0>  IRON  EL  TS  **************  ********  ***  **■**>. 
I 7R0  PEAi) , ( L ( I ),  1 = 1 , 120) 

17  VO  1,  (1  ( I ) .:,F.-1  KIOTO  1 3 
1300  i >OMI  = | ,J 
I <10  1 4L( I ) = I 
1H20  I=J+I 
I 30  L ( I ) = ) 

14  40  I3C0NTMUE 
1850  I = i 


11.360  NED=0 

*********************  END  INI TP -2  ********************************** 

I I OP  )C 

' 4 *******SETS  V ( I ) TO  D CO  NTS  THAI  IS  Y(  1 ) r : I ITS****  ■ 

******** *****T()  THE  FIRST  ECOI  ; i ; PUT  ON  RIAN.)  ROLL,  AND  NED***  • 
■****•/  • ir******r:  THE  number  OF  COMPONENTS  TO  HE  PUT  ON  PIANO  ROLL* **** 
M 1 I F(  L(  I ) . LE.O.  OR.  L ( I ) . OT.  J )G()T()  1 6 
1193)  NR)=NE  1+1 
1 I s in  I I = L( I ) 

11950  /(..<:  ))=/.(  I I ) 

11960  1=1+1 
119  7 i OOTO 15 
I 198)  I 6C0NTINUF 


I )V0  RFI  ijr?N 
5000  FNO 


• u A \ • | ; -a  -k  y k\  • ;•  k-.\  'k  -kki  .V*-’  * . .<  k *•**  ★ ***•* 


I • I ' /.  A , • k'k  -.V  a * /.  1 rr  ; { --■  ••*  **  A - a * k v:  a ;•.  k • 7 *■*  te  ? a *-  ♦ 

I >020  Ml.  '.’Old  1 . 1 1 • 1 1 1 1 ! . ■ 

****  iJ  . *************** 

i 2040  *Rpo 

1 i : vT»ACi  !•  I .A  .'.!:" 

I Oo)  REA  i ,ro  , i 
I ' 0 7 4 I l-o.  "M  i A6) 

1 2 O CALl.OP1- Or  (-1  .OOi.T) 

I / K nEAr  (4,2)1 
I 100  3EOR.lAf(4X,I2) 

12  1 PEAK  -1,2)1 

IK  I . • . . i 1 l - A . r . . . 0 ) K 104 
1.1  A 7 P I. or.  O.NEL,  I 

;.A  i’(  ////,  ■ 1MEIR  IS  AN  ERROR  I..  THL  '1  'ACT  FILE,  KL- 
i . •'  I =" , I - ,////) 

121o)  ' All-  EX  I r 
12170  4 co.'.ru sh 

1 2 I 80  uo3 1 1 = | , i 

i 2 1 ■ ••  •:.  . ( t , j ) 

1224  1 >:  \ : ( 2 \ . 12) 

! *■  .<  Hr**.,-*+*d  ■ i'j  V A I - ' J : • Or  ZZ  i ! E 1 1-1 S I I?  h CO  II  I • CON  i R AC  i . I !_:■■*  **  * * ■ 

; c c/  \/3cT(4,z/. ) 

3 / i';i  or  1 1=1  ,..£0 

I >4  C*************r I i ; I (J  MM  HR  Or  I'th  ?ECORD  1 ) : ’R I NT  ED  I.,  IA 

I 221)0  CAI  .LScTSCK  4 , Y C I ) ) 

12260  READ (3,44)11 

13  / ) 44H)P  '!AT(  12  ) 

122  /)0*************FI  N!)S  COOP.  RECORD  IN  CONTRACT  H ILR ****** ******  i + ■ *■>  ■ 

I 2290  12READ(4,44,HN!)  = / )J 
1 3300  I E ( J . IE. 11)001012 
12310  ' ACKSPAC  -4 

1 232  >0* ** *★** ******5HTS  7 AL til:  OF  POINTER  xsZ(I)  iO  20  ?Ri  ONI  II 
I 3 330  CAL'.CA  VSCK  4,Z(  I ) ) 

1 2340  CALLS El  1CT(4 ,Z  ) 

1 2 K-o  i ouicohYiiiue 

12300  RETURN 

i 2 r/o  end 

. '< ; 00  ***  *****  ****** . ******  : J()  IiilTN-  I ****************  » w*******  «•******••>.  ■>.* 

1 2390  SIJ  {ROUT  IN EH HAD 
1 24  00  OR  PC 

ll  C*************C!IECKS  FOR  PRE-EXISTING  COPIES  Or  THE  OUTPUT  . ILE** 

12420  i 01. 3 1=0 

1243  ) ■’RI  . 1, "OUTPUT  i ILF  NAME" 

124  40  READ  I .OUTPUT 

I 24  SO  CAL  LOPE  i IE  ( 0 .OUl'PUT , 7, "3  I 72 ",I,IJ) 

13460  Ir  ( IS.  1:0.  2)  GOT)  1 
1247  0 IK  IS.  iE.2)00T0  10  I I 

1 24  i.O  PRUT, 'TIE  rIL  ALREADY  EXISTS.  DO  YOU  EAr.’i  TO  OVE,..»RIiE  IT?" 

I 24 9 J PRINT, "ANS.  YE  ' OR  ilO." 

I 2S00  CAf.LCLOSEr(S) 
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1 


I ?s I ) 1:101  .1 

I ' >F  l HIV.  ‘.AT (A3) 

■ ) T : ( I.  ' ).  " ) )i  01 

I :•  4'  I l at  To  10  I 3 
I IO!l‘  001  I HUE 

I , I r(  i . . TOO  TO  1)14 

I >■./)  ' r j.  t.'Ti'TS  ell.’*  I b A LFliAOY  HV-  YOU  CURp  FITLY  UoF  IF  AS 

I ’bbO  PR!  .•  f,  "OUT;  0 I'  hlU  , FRY  AGAIN" 

I 3")V0  r'0  F' 1 1 0 I 3 

1 r;0 j ioi-ioo .n:;uE 

1 1 ,1  ! .1 , " r-  IL-  COUL: ) NOT  4-  OPE, 40).  II  f AY  WAVE  A PAS. 3 .10  . ‘ 

) po;  , "TRY  AO  A I i;  CONDITION  COTr.="  , IS 
I 30  OOFOIOI  3 

AOC--  u:r3  OiJi  1 ■ I L ! 1 'I.  ADI"  ■ 0,1  OUTPUT  h I LE  *********** ** 

' H O \T  < A6  ) 

I 3 .IT  l‘l: ( 1 ; ! ) 

I ?:>'/'.)  nr  : (M2) 

I > ) 0-0  ".a  : ( la ( ) ) 

I ?■■'>  ■ RIFF(I;3) 

I A'O  3 )RM  A i (///) 

13/1  ) 4hO,  1 AT ( 1 4 X , 4 9 ( «*" ) ) 

I 12  ) Eh  ’ ' A l'(  1 , "M',0/M4rt  LITE  Oh  BALANCE  PROQdCTi:  - RETUI RH  ‘T..O  ) 

1 3 /30  1 r? r • (i  j4) 

I > /■'  ) RII E ( 1 ;S  ) 

I 2 7 S 0 Vi  P I FE(  I ; 4 ) 

12  760  'PITFOslY) 

12770  I 7rORMA  F( / ) 

127  )C*  *»  ■<*********  ).•  FHRT  I.TES  /J  J ! OFR  OF  /AYS  I , .-iONTI I ******  *■*★*★*** ** ** 

13/9)  I=J3‘ 

13)0)  [i(I.  .1.0  . I.  3. OR.  I.EO.b.03.  I.  EO.  7.02.  I.  EO.  >.  OR.  I . E(. . 1 . 

12  J )°»I.EO.  12)1  FH=3 1 

I •>  20  1.(1,  . )R.  T.  E0.6.0R.  I . E0.9.0R.  I.  EO.  I 1 ) I -,T!'=30 

I 2 30  K = J 3Y-( J 3 Y/4 ) * l 
17  40  !h  ( I . EO. . Al  ,0  .K  . F-O.  0)  ii»n;i=29 
I 7 SO  [I-  ( [.  EO.  2.  ATI).  . J > : . 0 ) 1110=23 
I V.h  1 .:/[  IE  ( I ; I '>  /) d . I 'TH.J3Y 

I , I 6 / hOO  ■'  \ .'  ( I OX  , l.  AS  F MATE  Or  RH'POR  P*  " ,2  ( I 3 I 2 ) 

I 3 1 OAI.L.DATI'O-T  I, TO  J.OAFF) 

I 3(90  Ir  ( 1- 1 . A d ) ) :,R  I FE(  I ; 10)  (OATH  ( I ) , 1=1  ,3) 

I 2 lOhf'  If  :<."•)  ATE  Or  REPORT*  ",3Ao) 

I 01  ) li  (hLAOC  / ))  /P I F - < I f 40 ) TOLJ 
1 4 Oi-OR":  A F(  i OX  , " F I IE  Oh  REPORT*  " ,A6) 

I J 3 V'  i.  I FI-  < I 5 1 I ) FANF 

Id’  1 I 1 1 -on,  1 A re  IOX,  "FANK  FILE  RAwH*  »,A6> 

I 29'  o Ii  ( . JOF.rl.A  )(  I I ) ) GOTO  I 373 
I 2960  . f Th ( I 1 1 2) CO, UP 

13d  I ,.!)!■  ;VF(  IOX,  "00  S'ONr-fiT  FILE  OA.F*  " , Ao  ) 

I O 0 I h ( i-LAO(  4 ) ) OR  I F'  ( 1 ; I 3)COOT 
l In'!'  iAT(  IOX, ''CONTRACT  h I LI:  NAFF*  :',A6) 

I 3 '00  API  IT  ( 1*17) 
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3< ) 1 ' ) 
1020 

■ if  I 
1 OF 

i(l  ; 1 ) 

A i ( 1 0 , 

5 30  i 

/, 

' , •'  V ' 1 

T .40 

1)02 

I t .FED 

5,  1 s A . ' 

CAL 

1 Fits, 

3060 

REA 

< , 30 ) ( LC 

30  70 

2(>f 

(TCI  6 ■; , 

3)00 

,,RI 

(1531 

309  ) 

3 I r 

M ( 1 3 

1 1 00 

20C0NTINUE 

3 1 10 

1 f.  1 3C0  : TlliU: 

.1  20 

WRI 

TF  ( 1 ; 3 ) 

2 1 30 

NR  I 

IF  ( 1 5 2 ) 

} 1 40 

PET 

1 j r>  j i 

3 1 1 0 

Ff  0 

3 1 c.O 

su 

3)1 1 T I Nl-ROL 

1 \!  A.a;-  *■  rooucyioN  !•  poiii  ••,//) 


0 ( I P F ) 

! Jl  70C******* ******F IGURF  i JECTE  ! SCHELULI  EC)  A . ■ i , . 

I 3 1 ; . i *************  3 UXJTHS  THIS  SCHELULH  !c  Ur'S  IRE  '•  * * +***  **  **  ***.«• 

131 90 5 RPC 


i 330  ) CaLLSI-TSCTC  ’,Y<  I P F ) ) 

1 1 fa:  (3,1)1.,.  , (L(  1 ) , 1 = 1 , 1 PI  VI  ) 

l 3220  1 hop-  ATC2UX,  I D ,40A2) 

13230  PR  1 1 1200 
I 32 An  1 1-  ( .rOT.F'LADC  I ) ) CJ0T03 
I 3250  200r()RMAT(//, 7. >("*'• ) ) 

I :360  PR!  . :2,  ( L ( I ) , I = 1 , ID? V I ) 

I 35  7 ?t-  )■  .1  AT ( //,  " run  CURRENT  COMPONENT  TO  'H  Sr., 00 THE  ) 13:  , 

1 32  80 -V  ,7  ;< , 40A2  ) 

13290  4F0PMATC/ ) 

12300  G0T0I8I7 

1 3 31)  3co,rriiiuH 

1 3320  PPMTrn  /.(  L(  I ) ,1  = 1 , 1 nr  VI  ) 

13330  10l7P0R,lA'i(//,X, "COMPONENT:  ",  10A2  ) 

I 3340  PRINT4 

I 3.3500*************Rr.A:.>S  LEADTI-sbS  Ai.  ) PIHRCfcr.TAGb  USE  EACH  Vu  1 1 CLr  + **  - 
'*  - **  r*****FPOM  THE  COMPONENT  FILE**************  ******  **<•<* 


3370  Rl  , 1(3,5)  CCLEC 1 ) ,f.PU<  I ) ) , 1 = 1 ,mEL) 

I < ; ' iff) ■! M A 1 MX,  I 2<  12, 13) ) 

13390  IP=0 
I 3400  OOP  'S  r = | , 1 20 
134)0  28 [CPC  I )=0 

1 242 OC***************  ******  El-iD  ROLLER-l  ********** ***■*•**■  ********  <•******+ 

I 34  300 

1 3440C********-*****I  i'  IS  THE  NUMBER  OF  SUPPLIERS,  AND  T -'IS  DO  Lc  )P  A I LL**» 
1 3450C***  ****** ****R  A)  IMF.  DATA  PROP  TIP-  COMPONENT  r ILR-.-**  ****** ********* 

1 3460  I 0 100=1  , ,UM 

I 3470C***** ********  I T IS  THE  ACTUAL  INITIAL  FOR  THIS  SUPfLI ER************** 
I 2480  I F ( 1 IJ„i , NF.  I ) RFAOC  3,6)  IT 
1 3190  6F0RMATC4X  ,14) 

I 3',  00  C *************  IP  IS  THE  SUM  ALL  ACTUAl  INITIAL  FOR  THIS  COMPONENT***** 
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V 

1 oc 

•**., **** 

~ A A "A  A A: } ' 

UJS 

ALL  PA Si 

A1 ; i i ! a i. 

| 9'  | )U 

CTION 

FOR  T. 

. j'(- 

j COL 

P! i icin' 

k x ★ * A X 

■> 

>20 

ip+i 

i 

> 3 0 C 

’ * * A Yir  A 

k'kiK  kkk  9 

AD 

. L , THE 

1 lA5  i' 

PI  ANNE 

5,  »0T 

U SED 

Ht 

2 RE, 

A j I ) k k k k A k . :k  * 

3- 

)40r 

• A XXX 

Ax  *A Ac  AnA 

I CT 

, THE  IA 

X 1 ;-iUN 

PROD. 

i I Oi  R 

AT;  F 

)R 

Ti  1 1 S 

SU  PPL 

I r R * * * 

V 

>hU 

READ! 3, 

7 ML  ( I ) 

, 1 • 

1 , 1.FN  ,),  ( ! 

CT ( I)  , 

1=1 ,Lr 

:NP  ) 

3' 

FO  MAT 

( 4 X , 1 2 I 

.5  ) 

V 

) /DC 

• \ A"*  X 

k A-  kkkk  p 

FAI 1 

, L , THE 

PAS  . 

ACTUAL 

PROJUCI ION 

r( 

)k  To 

ila  SUr- 

PL  It-  * 

>80 

READ! 3, 

/)(  L(  I ) 

, 1 = 

1 , LEND ) 

3‘ 

>90 

'08 1=1, 

LE  710 

I 3600  : - IP=IP+L(  1 ) 

1 3r>  I I DO/I  = I ,I.FNE 

! i20C' ************ K I’  IS  THl.  SUM  Or  THE  MAX I.'.UN  PRODUCi  ION  RA'IV  ;V>.  ***** 

k «r*******AI  ! 1 • PLI ERS , MONTH  BY  AONTH*************************** 

3...J  ) ; r ;p(  i )=icp<  r )*ict(  I) 

! 3os  ) I r.  :nfJTINUi: 

r ******* **f  i')  ROLLER-2  ************************************** * ‘ 

I 36 TOC 

I 16!  ' LH)21I  = I ,120 
I 3690  I P ( 1 , 3 ) =0 
13700  IP(I,4)=0 
13710  23ITPU  )=0 
1 3720  IT=0 
13730  irc=o 
1 3740  no20K=l ,UEL 

»**********IF  NEXT  STATEMENT  IS  TRUE  THEN  VEHICLt  DOES  NOT  USE***  <* 
1 177  - IF  (l  EOC  ) . E0.99.0R.LPU  (K ) . EQ.O  JGOT020 

| /,  ; k A*  ★ k kk  kkkk  IJ3|  ★ kkkk  kkkk  kkk  -kirk  kkk  k kk  kkk  ★ kkkx  kk  kkk  k *****  xkkkk  kk 

13790  LL.=  LPU(  K ) 

1 > DC  **  * >’•  * * * * ***  I . 3 IS  THr  ROUND  IN')  R a Ci  OR  ***************  ******  *******''*'*"' 

13810  I K = I 00- IX 

I 1 : 00* **'  *** ******  ; E i'  POINTER  TO  VEHICLE  CONTAINING  CO -'.PONENT *********** 

I 3 ilo  CALL  . . Cl  ( 2 , X ( K ) ) 

I i <4'.  ,*** ***ir**  ****  •«  OF  10NTHS  IN  PAST  PLUS  LEA!.'  I I 4 ********************* 

I 3350  I.E:  =LENO+I.E(K  ) 

I3F.60C*-  ' *** 1 ******  I EM  A IN  INC  MONTHS  III  THE  PROGRAM  ******************  ****** 
I 3P70  LEr=LENF-L.E(K ) 

1 3 ?H0  I BD=LE(  K ) 

13690  R l.  A!)  ( 2 , 25  ) I TL 
I 3900  IT=  JT+(  ITI  *LL+I  I'D/ I 00 
I 30  l i I r — I C+(  ITL*I.[.  + IKB)/I00 
13/20  25,  )R,  '.AT(FX  , M) 

13930  If  ( I Fr.OT.O )GOTO 1 I 

1394"'  r'P[  VT/'F.RROR  1.1  ROLLER,  L'T  ,K  , I PE="  , l.Ei  , K , I PE 
1 3950  CAI.LE  < I T 
11960  I 1C0NTI NUF 

I 197  *************  ITH  '<Y  MONTH  PLANNED  INCL  LEAD  TIME  IS  L.  ********** - 

I I9f‘0C* ************  •!  INTII  VBY  MON  I’M  PLANNED  IN  FUTURE  IS  fCT  **** ********** 
I ■ - '•  (2,  7)<L(  I),  I l ,LEP)  , ( I CT  ( I ) , 1 = 1 ,LEP  ) 

14000  0060b 1=1, LEND 


m* 


! 4 J 1 1 ' J = [ + I "»!') 

’ 1 .) 20 C ****•>*•*****>•  vfS  < M Ot-  L!.  y l:: « p: !f  - a-.!*  » *f,\.  "Y  Lf;A.<  1*1  iE  '..ILL.  I * 

1 } 20  ' ***  * A **  **  ***!  | J '10  I (JAi.  LO  k kk k.  k kk  *:.  kk  * * k kkk  '*  k < * ■ kkk  : kk  kkkkkkki  r 

! • >40  r ( 1 ,3)  =1 : (1 ,3)  + (L(..n*LL+IKr*  )/l  00 
|4.)b'l  60500NTINUE 
I : ’nv  >02  11  = 1 ,LLP 

M 70C*************TOTAL  OF  ML  'EH  REQUIREMENT  ' \S1  INC!  LE  3 M 

I 4 >80  IT=IT+(L(  I )*LL+IKll 3/100 
14090  2 1 CONTI  NIJE 
I 4 t 00  00604  I = I , I MU 

14  11 00***  * **  1 ******  Vi-.  ! PLANNED  MEFORE  LEAD  TIMF  MILL.  IE  Co 'ID  FILM:.'': 

kkk  kkk  <ckk  k * **  I 1 ' !Q  *************************  ***■*'***************  / ***•■ 

604  If  C=  r 30+ ( L ( I ) *LL+ 1 KM  3/100 
I 4! 40  002  1 1 =1  ,LEF 
141  MO  J = I +LEN0 

* ■ tTOI'AL  FUTURE  REOUI R ...  . LO  1 * , 3 ) ....  i 

Ml/-  i'  ;0,3)=I  ( , 3 ) +( ICT( I ) *LL+ 1 LM )/ 1 00 
.Hr  IT!1  ( I )=  ITP(  I ) +(  TOT ( I ) *LL+  IKR )/ 1 00 
I 1190  22CONTI NIJE 
14200  20C0NTIMUF 

42  1 k y.r  kk  k kk  kk  k r * **  kk  kk  L. 1 *0  POLLEN  3 * * **  * kkk  a . kk  k . k kk  v kk  kn  k k k k k-  k * k 
I 4 ?200  *************  I i ITIAL  SURPLUS  OF  DEFICIT  Ai  1st  '.ON  i H I.,  i 4c  rlii 
I 4 6 30'  '**kx  *********  I 3 IS  *********  **•  ****  **  ******  * .V*  ; * . ******  *>  :•  ******  > .. 
14240  IS= IP— IT 

1 42L  40  *********  .***ZF  20  ING  OUT  SURPLUS  I.i  r I RST  .ION  T IS  Or  i iOCRA  ******** 

I 4260  D042 1 = I , [.Ft; F 

i 4 , ■)  IF  ( IS.  41.  IT P(  T > >00704  I 

142:  L.  ( I ; = ITi>(  I ) -I  S 

1 4290  IS=0 

14  300  00  7)4  2 

i43io  4i  it=i5-i red  > 

14  320  L(H=5 
14330  42C0UV I NUF 
I 4340  00 301  = 1 , LFi  i; 

)C*  *********  1 : FIRST  TEN  I'AI"  I VI  ICHEDUl  Mi  (*,4)  ******  • 

I 4260  ICT ( I )=ICP( I ) 

M 3 YO C ************* U T AND  L TS  THE  REQUIREMENTS  SCHE.LJL.  **•****•.  ********** 
143!,  ) .30  1 1T(  I )=L(  I ) 

I 439')  FLA0(  9 > = . FALSE. 

I 4400C** '•  ***  v- ********  ** ****Mi  i ROLLER  4 *********************** ******^  **** 

I 44  IOC 
| 442O0 

14430  I07C0MTINUE 
I 4 4 400 
1 441)00 

I 1460C*************FI  ROT  WE  COMPARE  T.IE  MAX  PRO  SCI!  TO  T.i:  RLOIiI,<  ; . ■ 

I 4 4 70C ********* ****!■  ' LA'.i  HINT'1 1 TO  r I PST** ********* **/.•****** *?.  **  *** * 

I 44FL)  0060:-CK=»I  ,LU 
14490  K=LP-KK 

1 45  0 )C*  ***********  / : ' ' 9 1*  A 1 1 ' R i ’LAN  REOU  1 1 1 EL>  **★***.•**************** 


,•»*«  . *W  i« 


*■.&&  cm ' • v.  ••• 
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i a >10  it- c i <: n k ) .ui-.  i.( K ) )oo ros  ■ 
mono  j=,;-i 

I ",  t ) 1 1-  * a •.  k > -A  ■ it  A 'ilrlCIl  i ) h R|-  V l Oil  S . i JN  1 1'  v * y*  ■'  ***»  **  *Ar  a-a  * a **  a * * a * - 

HMi  I (.1  )=L(  J)+L.(K  )- r i (K) 

l ■ ' - i-  t.  \ \ ■ >(*]  P|  i i /,  ‘i  A • --  ,V  ***  * V . I V ; * ■*.  Ar  ★x  *>'  * * V A'  a * A - ■>  - -- 

14S60  L(K)=ICT(K) 

I 4870  SOCONTINUE 
I 48:0  r-LA  ;(  10  ) = . 1 RIJH. 

!*  ****** ******  It*  RHQU  I R f£f ) FOR  1st  lONTn  1.-  JYUR  : - GR  :/  i ..  . . 

I •£***  -****-x*-.c**m.\X  PRODUCT!  OK  SCHEDULE  7 HF.u  SCHE  > JL  I S 8 At)  * *****  * ***  - 
I'.l'  It-  ( L(  I ) . -1.  IC  i C I ) ) CALL- AD 

l t-.cOC*  ******  *****STA  RT  OF  SMOOTHING  ROUTINE  L(  * ) COTTAI..:!  A TFau  A T I i/l-  P .0  • 

1 A A A A a 'A  .Vn  a AAR  RE  f t i j LE  -t  A Ar  * Ar  k k >.  A A A A-  A Jr  A k k }:  A A A A X A A .1:  ‘VrA  A A A A A".:  A A AA'  a t A Ax  * - 

1-V;40  10511=1,12 
I 4 '>1)0  L0(  i > = 8H  I>s8 
I -.06  13 100  /rifHJF 

I 46 7 1 IF (FLA  i ( - ) 100  To  602 
14680  FLA  >(  9)  = .TRUI-. 

’ ' >90  ■)<  -.  - I I =LFM ! , LF:.i 
14 /CO  J = I -LEjiO 
i 17 n c f ii(i  , : )=L(.n 

I 4 /I/O  602CON  f 1 tt UK 

1 47300***** ****** **t  rURN  OF  10  SMOOTHING  IS  f()  PE  DO  4E** ****** **** *** a x r a 
14740  I F ( .Nor. FLAO( I ) ) RETURN 

1 4 / 5 OC ************** ^ ** ****EN 0 Oh  ROLLER  8 AA  Vr*  A A-  AriV  -A-  A A A A * *-7.‘****  A-.r  *-**  •'  A A A x 
14/60  PRINT  00, 

14770  PRINTS"! 

14700  5Hi-  >PHAT(  //  , I 0/  , "TRIAL  COMPONENT  SCHEDULE  * " ) 

i 4 790C***  * At  ****;<!  ITF  TR IAL  PRODUO  LION  SCHEDULE  **************  **  ***  > *a  a 

1800  PR I • , J EF  Y , ( LQ  ( I ) , I = 1 , J EFM ) , ( L C I ) , 1 = 1 , LEW F ) 

14810  82hf)o  :AT(  IOX,  "FHL  FIRST  YEAR  IS:  I 9 " , 1 2 , ///  , I 3X  , 

M ',201"  I r M A M J J A S 0 A 11", 

I 4 830V/,  10(1  OX  , I -'IS,/  ) ) 

14840  PEINT5.3, 

I 1 ISO  S 3 1 iR  ' A I'(//  ) 

14860  PRINT,  "..X)  YOU  • ISH  TO  PRINT  THIS  COMPONENT,  YES  OR  MO." 

M870  PFADS4 , I 
14  880  84  FORMA  1' ( A 3 ) 

t 1890C  ***  *******  * **R  1-1 1 JR!  j I r SC!  IEDULP  IS  GOOD  *****  ******  a-*  ****-******  ****a-.v 
14900  IF( I. EO." YES") RETURN 
1 19 | 0 I 1 0 CONTINUE 
I 4920  PR  I JT200 
14930  PRINT59 

' - 89FOR'1AT( //,  IOX , "MODIFIED  MAXIMUM  PRODUCTION  SCHEDULE***,/') 

I 4980  F!  I NTS.  ’ , JFr  Y , ( L0(  I ) , I — I ,JEFH)  , ( ICK  I ) , 1 = 1 , LFi  lh  ) 

14960  PRINT, "TYPE  IN  RE  LA  T T V Li  CHANGES  F()  THE  SCHEDULE  IN  1 HE  FOLLOrt  IhG" 

14970  PPL. T, "FORMAT  YY,J,F,m N , 0 . 11 

14980  PRInT,  "CARRAI-O  . RETURN  AFT  ER  LAST  CHANGE" 

14-90  (OoCONTINUE 
18000  I R-0 
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1 -.J  1 y 

)( ) > 1=1 

» • ^ 

1 >020 

60L  ( 1 ) 

=0 

I > "V)  ' i\  -k  x -A  kk 

k kk  k k ■ 

\L.  C'iAilG.- 

. io  . a; 

! -o  1 k A at  * k k kk  k k k ki c 

10  I THE 

TEAR  T 

1 .850 

A.  , I 

, ( ' • ( I ) . 

r=i , i 7) 

1 5060 

it- c I r .>• 

).  o ) rr  > 

i )<> 

1 ->->70 

I F ( I R . I. 

T.JEEY.  ! 

■ . ir.ot.  j 

2T)  JOTO 

1 5 080''. 

,**<  -v.-***-V****|( 

I i ! 1 5:  1 

t ..HERE 

1 5090 

? =;  ir-.j 

*-r  Y ) * 1 2 — 

JEr 1 

i • , j ) (J  •kirn'*  k k k k v.  > irk 

I S THE 

LAST  '.Oi 

1 110 

KK  = i>  1 1 

1512  S 

I =u 

1 

I F ( 1. . Or; 

. 1 )0  FfOo 

1 

15140 
1.1'  ' ' 

J=l  -K 
1/  — 1 

1 J 1 

i "J  1 0 

6 1 CON'l'I 

HUE 

1517 

★ ★ .*■  k k k 

A **** C.  , 

AliOP  MAX 

PROD  SCI 

1 1 

0004  I =.. 

»NK 

1 5 | 90 

J=J+I 

1 5200 

’ :r (i ) = 

I CT ( I )+!. 

0(  J) 

1 3 

64  7 >:ITI 

HUE 

IS  220 

0010  I JO 

1 5230 

i oocoorinuE 

! 5 >40 C*  **i  **a- 

k kick  >:k  k 'c 

■**•****£!< 

> ROLLER 

D ?50( 

>rk 

kkfc  k kk  C i 

ECK  TO  31 

■E  IF  HE 

1 5260 

00701=1 

, LEi.E 

15  / 

I P ( I C l ( 

D.Gl . I 

sc  i ) ) i or ( i > = i c p c 

1 521  l 1 

70L ( I ) = 

ITT  ( I ) 

I 529  V' 

TO  107 

1 5300 

RETURN 

15110 

END 

15  320 

OH".  K)  J i 

A'.'i-.  lU  - * « 


. ,r  -A. . irk  k~  k . ;'•/.*  -kvr-k  * k * • 


I 61.30C*  *-'•-**  n ; S'JHROUTIUE  CA  1 .1. 1 > r IK)  ROLLER  It-  A IVi.x  At  Ik-  **** 

I 5 3 40C*  **  * v * v r **  * **S0 ' IT- ,'  HJ I ,E  IS  jA  ) Ii  ‘ ) fc  1 ! * ■ / .11  .E5  .<.11  .1  ii.  ' C.ILJ  lJ  L . ■ .» 
i 5 350C* ****** ******A  1 WHEN,  lx-  IT  DOBS,  CATCH  UP  AGAIN  «************>  • 

I 5 360$ RPC 

I 5170  FLAf'(  I ')“.[•  ALS  . 

1 5 3 BO  1 1=1.  ( I ) — I CT  ( I ) 

1 539  >C*************I  l rs  THE  TOTAL  RERDICTED  SHORTFALL  *<********y*i  ;r(*i 
15400  1 1 r = i r 

I 54 1 !)C****  **  * ***-.r**  .H-i'S  L(  I ) TO  THE  IAX  PROF  RATE  ** ****** ******  **  * *** 

I 5420  L ( I ) = I CT  ( I ) 


I 54  30C*****  ******  **Ti  1 10  DO -LOOP  DISTRI0U13  . iF.  5II0:TF\LL  I.  .10  l i:  rUil' 
15440  1)021  = I , LFMf 
I 5 4 CO  If  ( I c f ( I ) -L(  I ) . 1.1  . II ) GOTO 3 
l >460  I ( I )=!.(  I ) + I I 
154/0  GOTO! 

15480  3C0n  IT  HUE 

18490  I 1= II -I  Cl  ( I ) + L(  I ) 

I 5800  LCI ) = IOT( I ) 
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'Y.HH. 


v A 


) • a k «.  *■/: ,.  *-A-  c J [ ! ! [ ' i C , 1 a • I I . , E 1 1 ' . 

...  r ij|  ,,  'c-  i • ■ .. 

'>•>40  H M 
5660  I b = Lfc  ; Jl- 
50  60  OOi'Oo 

,’j  4 C ;■  ) : A T I I It  I ( * 

)('*** a * ******  IMF  SHOftl'rAl.L  ILL  . \ 

>66  v * .•  <■  a \ \ k a i .!  ' ,-{-kk  v±.  •:*  k *****  ****** 


- CA  j i . i : ■ ? 

* V A Sr-A  ■ A-  c ' . ***>  ■*  .'A'.  ..■■■-  ' * ■ 


!i  ! !.  ! it-  ith  '■  i ..  I . 'i  • 

, . av  • k V.  kkk  - ki.  X kix  v V a <k'k  '■  v • 


l5o00  14=0 
66 1 0 15=1 
5620  6C0i,T  l NUE 
56  30  I 6=  I / = . ) 

* . * v*  . I ; 00— LOOP  DETER, . Ii.’ES  IT) H HIRST  ION  1 1 1 . JFPE  fl  !E  ****** 

•y  K *:  ..  v.;„  Hv  t*ri  !17;  ujf.E  OOH’J  \l’  **-*■■,;•  k \ ****  ***-.■•>-*■.■.  ■■  . ■**.:  {*•>■******< 

56''  0071=1,  1 j 

5670  Ir  --I6+L.(  I ) 

56R0  I 7= 1 7 + ITT ( I ) 

5650  ltd  7. OT.  16)00700 
5 /00  700  .1  IliiJE 

5710  .co^Tiior- 

5 72°  E 3=  i 

:*i  ******* **a  f is  I'HE  ill  ER  OH  MONTHS  TO  rfHEftfc  TE  E SCHEDJLc 
• • t******TO  AMOVE  rHE  LINE  OF  FALENCE  *******iiri  ********  ********* 

575.)  I 5= I5+LHN0 

6 / ')C  *■*•-»  **********  I , 15  rHF  •U'iMER  Or  ‘ONTWo  TO  t'.HLEE  T iE  SCrli  ,;jL1  3065  * 

A ********134,0  *********************************  **************** 
5700  I r=  I O+LFI '0 


>7900 

> -A-  Tr 

* * * > * x * * ;V  .V  | 

•NO  IN  I'M 

H 

OHO  9 i> 

ALL 

AT 

nIE  E J!) 

Or  f. 

i E P t'C  • ; !.'.■** -v  + * * 

5500 

I Ei. 

= 1 1 

5310 

I • ■ 

=1 i-( Io/l2 

) *1  2 

5320 

I R i 

Y=.!l  Y + ( I 5-1 

) /l 2+1 

5330 

IE  i 

16/12)  *12 

53  10 

I Hi 

Y =J 1 Y+(  I ,-l 

) /I  2+ 1 

5.550 

IF( 

IE  -1. 1-0.0)  I 

. 3f -1  2 

5360 

IF  ( 

[d;  .EO.O)  I 

M-|  2 

65  70 

PR  I 

NT  H ,1  IL4 , I 

'Y,  I 93.  , 

IE 

37,111 

,14 

5 ■ ‘ t;0 

1 1 r 

09,  vn //jo 

, " A ■ o: 

; ip 

MU  1.0-9  t 

//J 

OX 

,"-T 

r go:: 

3 !A0 

ox",  i 

6 >90  V , 1 

x j* / o',  i r 

ECO  VERT 

IN 

■MV 

/"J 

//, 

! OX , - 

70 M iE 

j J i A 1 A i Liz  A5_  i 1 

6900  i 

15, 

" UN  r i r EARLY  IN  THE 

• ) 

CUE!  HIE 

" ,/ 

,IOX, 

59  10  ? 

"li;. 

Hi  CO  VI: . ’A  ! ••' 

TIO!  L'i  AL 

L 

Or",  16 

,"  J 

9 I 

111  " 

,//) 

5920 

RET 

1 JR.  i 

5930 

r li'J 

59  500 

/*•;. 

********  i'|# 

)F  5AD 

** 

vc  k k k k 7c 

•f**k 

kkk 

*-.t*  *-t 

**  .V**. 

• /*rAr  vVa-  *A  v r W*  'x  c a1-  7 7 

T/I  0 

CJ  ( I , 

..  U > 

POIJi' I NFS  IT..  I 

i (IFF  ) 

596  OC 

59700 

C*  ! J 

Or 

LI  r 15  CAM.. 

: 0 FROM  F 

ME 

1 : A 1 .1 

RPOORA 

1 

59  HOC 

5990  SPEC 

6000  mj,'i2=NUM+2 
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■ ■-a-.-A,  w, .--a.  - a: i — - ■' 


16  '/') 

IP(  HI  ’..IF-.  1 

. Ai  . 1 .A  (2)) GOTO 

1 6030c: 

I 6040C 

• NO.  IS  THE 

.M'J-HER  OF  SUP-’LI P 

1 6O50C 

1 

-PI  C:(s  , 1 0 1 

) ( L ( I ) , 1 = 1 , L ..r) 

J 6070 

1611-02  A T ( 1 

5) 

16080 

1 6r  ' '■  1 A 1'  ( 12 

15) 

1 -.090 

RETURN 

i 6100 

H I.riHUE 

hi  n 

1=0 

1 oi  20 

iiC  ): iT  I .LIE 

1 1 30 

Ml  - :TSCT( 

I , Y ( I ) ) 

i 0 1 40 

f:  = ('.EL+2  n/12 

16150 

16160 

21  ) - (12) 

1 6 1 70 

4 RE \D (3,0) 1 

IMP) 

CALLSA‘/.>  '1  ( 

3,7 J ) 

1 61  900 

1 6 2 00  f 

: SET  POIi.TE 

r vi  ro  first  sup-' 

! 62  IOC 

I 6 5.?0  00  101  = 1 
I 6230C 

1624';  X'!IS  90  LOOP  0 RADS  THE  % SPLIT  HOI)  EACH  So  PPL  IT' 

I 6250C 

I >20  RfcA  '(  3,  I I ) ICP  ( r ) 

I 627  l Iron,  A f ( 1 2 X , 14  ) 

I 62 SO  r)()I  OK  <=  I , ; lU  IV 
16,290  TEA  .(.3,2)  L 
16300  lOCO-THUE 
16310  !)())  61  = 1 , .T 
1032.)  ITT( I )=ICP(  I ) 

I 6 3 30  1 5C0I.  ft  IIJI 
16340  0020 1=1, PUL 
1 6350C 

I j 3600  HI 3 00  LOOP  . ETPT  .'.IRES  TIE  SPLIT  RANK  ORDER 
I 6.3/OC 
I 6380  K= I 
16390  KK= II  PC  I ) 

16400  D02I  J*2  .HUM 
I 64  IOC 

I6420C  THIS  X)  LOOP  lETERMINES  THE  MAXIMUM  SPLIT  OF  THOSE  THAT  ARE  LEE  I 
I 64302 

16440  IHKK.SE.  I TT ( J ) )C0T()21 
1 6450  K=J 
16460  KK=ITT(J) 

164  70  2ICf)f.TinUE 
’•■180  ITT(K ) =0 
I 64900 

I6500C  ICT(I)  IS  TIL  JUT  PI  I?  Or  THE  SUPPLIER  ..  ITH  THE  HIGHEST  SPLIT 


i 65 ! m: 

16520  ICi  ( I )=K 
I 68  30  2(  CONTI  HUT 

' ^ A ..  x * A-  A A '.V  A *■  A VA*A*:C':JD  Ol  ' * | f ] — J / A > Af  A A A A-  A-A:  >■*  A ..  A A A A AAA  jr-v'r  A I i A 

1 <v  1 I ,r  0'10K=  I , LENE 
I 636.)  LAM  lTS  T(  3,  7.J  ) 

I 6570C 

I ■ ■ >80  ' K I IS  Hit-  ’4011 1 M II.  THh  PR(  HK,.  TO  ’ i»l’L IT 
I 6590C 

i 6:>  : ) K I — l.ENO+K 
16.  10  K2=NU.  1HER-K  I 
) 620  D04 11  = 1 
166  30  READ!  .3 ,2  )KA 
1 6r>40C 

• ■ IE  XT  STA1  EN1  *A  ! THI  Ith  SUPPLIERS  Kith  MONTH  INTO  J 

I 1 PLIED  DO  LOOi  ( ( K A ) ,KK=I  ,K  ) ?E  . S I it  REMAIN  In  - fc 

1 66  70C 

! 6.- ••••:.)  REA'  : 3,  1 !)  (<J)  ,KK=1  ,KI  ) , ( (KA)  , KK=  1 , K 2) 

I 6690  I TT  ( I ) -3 

16/000  ILK  I'  COMA  I .3  THE  NUMBER  OE  THE  Ith  PRIORTY  SUPPLIERS  MUMPER 
I 67  IOC 

16720  I A ( I ) =0 
16730  ONES! I )=. TRUE. 

16740  4 1 CONTINUE 
16/50  4 2E 0 RM AT ( 4X  , I 2 1 6 ) 

I 6760C 

167 /OC  L(K ) IS  THE  TOTAL  SCHEDULE  FOR  THE  MONTH  NE  APE  NORN ILG  .ITH 
1 6780C 

16/90  ICB=L  (.< ) 

16800  D()45KK=  1 ,UUM2 
I6HI0  CALLPUT ( T CB ) 

16820  K A=0 

160  10  ONES  ( 12  1 ) = . F ALS  E. 

16840  1)0431  = 1 ,i  <UM 
I 6850C 

16860  J*ICT(I) 

I 6870  IE(  .fi()T.ONES(  r > .OR.  I A (J  ) . LE.  I TT  ( J ) )G0  r043 
I 68800 

1 689-0  C THIS  BRANCH  IS  TAKEN  IF  THE  HIRST  TIME  I A ( I ) IS  O/ER  THE  mAXIMUN 
1 6900 C PRODUCTION  RATE 
1 69  IOC 

16920  ONES  ( I ) = . FALSE. 

1 6930 C 

I6940C  KA  IS  THE  AMOUNT  OVER  MAX  PRODUCTION  SCHEDULE  FOR  ALL  SUPPLIERS 
I 6950 C 

I 6960  K A = KA  + 1 A ( J ) — I T i (J  ) 

I 6970C 

I6980C  I A ( J ) IS  SET  TO  MAXI MUN  PRODUCTON  RATE  ITT(J) 
i 6O90C 

i 7000  I A ( J ) = I TT ( J ) 
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• 


' 7 01  ) 13 C'  ■ iriNUF 
I 70200 

1 7030C  SET  ONES  (121  ) TO  .TRUE.  IT  AT  LEAST  o.M'  SUPPLIER  IS  STILL  GOOL 
I 7O40C 

I 7050  IE  ( ONES ( I ) JONES  < I 21  >*».  I'RUE. 

1 7060  48C0NTINUE 

i 7070  I E ( . NOT. ONES ( 12!  ) )G0T046 

I 7080  I C8=KA 

I 7090  IF ( KA. EQ. 0 )GOT050 

17100  45C0NTINUE 

17  110  46CON TI NUF 

17:  30  PRINT, "ERROR  1.4  SPLIT,  K=",K 
17130  50CONTINUE 

1 7 I 4Q C 

? I oOC  WRITE  OUT  SPl.IT  PRODUCTION  SCHEDULE  FOR  THE  Kth  -ONTrl 
i 7160C 

17  170  WHITE <5  , I 6) < I A ( I ) , I = ! ,NUM) 

17180  4GC0NTI NUE 
17190  RFTJRN 
172C0  END 

■ 1 1 00************* ** ** ** **EN D Ot*  S PL  l f — 2 ******  ****************  * ***  **>  > **-. 

! 7 320  SUBROUT INFPUK I AM) 

I 7230SRPC 
1 7240  I FG=0 
I 7250  DO  I 1 = 1 , N U M 
1 7260C 

I7270C  J IS  THE  NUM  1ER  OF  THE  SUPPLIER  WITH  Ith  PRIORITY 
I 7280C 

I 7290  J = I CT ( I ) 

1 7300  I P ( ONES  ( I ))  I F0=  I FG+  ICP  ( J ) 

17310  1 CONTINUE 
1 7320C 

1 73300  IFG  ; OTAL  OF  ALL  SPLIT  PERCENTAGES  THAT  ARE  ST  I LI.  ACTIVE 

I7340C  If  IFG  IS  ZERO  THEN  YOU  HAVE  AN  ERROR 

I 7350  IF  ( IFG.  EQ.O ) RETURN 

1 7360  K=0 

17370  D02  1 = 1 , NUM 

I 7 380  I F( . NOT .ONES ( I ) )G0T02 

I 739  ) J=ICT( I ) 

I 7400 C 

17400  KK  IS  THE  TI-NLATIVE  AMOUNT  TO  RE  A DO  ED  TO  THE  Jth  SUPPLIERS  A MOUoL 
I 7420C 

I 74  30  KK=  ( I A '**ICP(  J ) ) /IFG 
17440  I A ( J ) = I A ( J ) +KK 
I 7450C 

1 7460C  K rS  fHE  TOTAL  AMOUNT  GIVEN  TO  ALL  SUPPLIERS 
I 7470C 

1 /4 BO  K=k  + KK 
I /490  2C0NTINUE 
17500  K = l AM-K 
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1 7^>  i orr 

I -OIJAL  TO  ZL-: f- v , A!  : ' 1 TS  ARE  GIVEN  OUT 

I 74300 

i 7440  1 1-  ( , ...  L-  ).  »)  RETURN 

I 75b ) JL =0 

17560  I 24  00111'  [NUE 

I 7570  DO 3 1 - I , UM 

I 7380  It  ( . , N) T . ONE S ( I ) ) GO 1 03 

I 7590  J = I CT  ( I ) 

] 7600  I A ( J ) - 1 A ( J ) + 1 
I /o  1 >C 

I 7o2  >C  JL  \ > THE  TOTAL  AMOUNT  ON  UNITS  GIVEN  OU'i  IN  THIS  DO  LOOP 
I 7s30C 

1 764  ) JL  - JL  M 

1 Uyy : IE  (JL  .OE.K)REi'URN 

17660  3 CONTINUE 

17670  GOiOl 24 

I 76r  ) 4 LOt.T  I NUT 

! 1 690  RETURN 

17700  ENT 

I / 1 c,  ..a.'.*.  liO  Or  SUBROUTINE  PUl  ******************  ;***************>:* 

I 7 720  SI)  ' ROUTINEER  I Ni  ( I PE) 

I 7 7 30$ RPC 

17  74  ) CALLSETSCT  ( 3 , Y(  I PE  ) ) 

1 7/5QC*************SET  POINTER  TO  CONTRACT  FILE**************** 

I 7760  I F (FLAG (4 ) ) CALLSETSCT (4 ,Z( I PE) ) 

i 7770  2 format ( /6< "*" > ) 

17780  3F0RMAT ( /// ) 

I 7790  4F0RMATC I 4X ,49( "*" ) ) 

17800  5F0RMA T(  1 5X  , " M60/M48  LINE  Or-  BALANCE  PRODUCTION  REQUIREMENTS") 

I 7810  6F0RMAT (/ ) 

I 7820  WRITE!  1 52  ) 

17830  WRITE  (I  5 3) 

I / i40  WRITE ( I 54  ) 

17860  WRITE! I 56) 

17860  7. T?I  YF<  I ; 4 ) 

I 7870  TP  I 1X1  56) 

I 73BOC*** **********  Ir  F LAG (10)  .TRUE.  YOU  HAVE  A GOOD  SCHEDULE******* 

I 7890  IE ( FLAG ( 10) )GOi  )I00 
I 7900  WRI  TE ( I 5 7 ) I BBM , IBBY 
I 7910  IrX  I END . N E.  0 ) GOTO  I 00 
I 7920  WRI  TE  ( I 58)  IE!U',,  I FRY 

17930  /FORMAT! 1 OX, "PRODUCTION  FALLS  TEH I. ID  IN" , 13, , 12) 

17940  HEORR.AT  ( 1 OX  , "RECOVERY  OCCURES  IN  ",  I 3 , , 12  , // ) 

17960  1371  FORMAT! I OX , "UNRECOVERABLE  PRODUCTION  SHORTFALL  OF", 15,"  UNITS",/ 
17960  I 00 CON  T INUE 
I 7970  K = ( N E L+ I I )/! 2 

1 79H0C*************Ri:  AD  INITIAL.  VALUES  AND  COMPONENT  NAME  *********** 

I 799)  READ ( 3 , 101  ) I AA , IPP,  ( I A ( I) , 1 = 1 , J XI VI  ) 
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M . ' cRITH ( 1 ;P)( I A ( I ) , 1 = 1 , 1 0 1 V I ) 
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34  R r? i r e ( i ; o ) 
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-■  • ; !•’  NAME  )i  SU°PLIE  ******************** 
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•53  I J I 04COi.  f liiUE 
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9000  AS  ( 5 ) ="C  iTPC  " 


[ 1 HIE  Li!*  A I > •'  !AL  SLP.  LI  t 

i : I O'  Z r*  .*  * < .1 ******  *•;.  ••  * 
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J96  I 1)0 1 0011*1  , J '■ 

20/70  KloMO'H 
2 )9fi. ) III- 1 Tl;  ( I * I ) i- 
20990  IPO-  iAf(2f.;X  14, 


TA  JLEi  ***  **  **  *■'**  ■ ■ : ■ 


2100  .''J 


■ II  //  1 

* t ' • » 1 

J 


I " ) 


* 


1:  i<  A 
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. I'.M  ; ( I ; ) 


7 1 

020 

Jr  ' . m 

| 

j3oc; 

' A . f ■■  k A A-  Vc  ; i:  v’r  J [ 

S T.'IE  ill 

’ I i J i I 

1 1 1 G 

.01.  4, 

1 Oh  l Si. 

/HA  / 

OL  IMG 

ou 

I:-  JT*** 

040 

J-  i.  "( i i-i  ) + i 

2 1 

OLOO 

‘ ** * *L  i()Li 1 IS  i 

HE  LAO  f 

10  ill 

H 01 

fHE 

YEAN  Si: 

I C 0.1 

r JT 

'r.  V. 

2 1 

160 

T i (01  0=1  2*1 1 

0 7 ) 

DOi;  0IN=1 ,1  . 

2 1 

jr.o 

1 1 ( . i.O i . Di  ESC  I 

) )GOr  M2 

2 1 

O'  ) 

JJ=  J'OLD 

2 1 

1 ( K 

:****•>  ! ( I . ) I 

' the:  i'o 

TAL 

LEO 

■I'rl  I 

i -ioi,t;  d; 

Oh  T- 

IE  LIN  : 

* 

k.<  k \V  ‘A 

_ 1 

| . : 1 ' 

.’i'(  1 A'A'tVV 

kk  A' A 

..-  oV 

; .V 

* a ** : 

. k 

vV  . +*  V. 

. vTv. 

7 1 

1 2 ) 

I , ( LI.  JT.  I HI 

))jj=r  3 

(IN) 

. 1 

• J J 

[.(!'.  . J ) IP  I i' 

"( 1 ; > A" 

(IE) 

, ( i 

( I , I 

) , I =J , J 

j) 

2 1 

1 *0' 

?•**.  k,  / T?  I 

IE  O.ILY 

header  i 

ir  Or? 

■ vn  4 

k 

L -Mr  '■  A*  ’ 

■"A'). 

A 

! i i , • ( 1 ! . i . .1 ) . - 1 1 .( i ) a )( I.;) 

.?  1 1 O' ) . I ,'Af  (/,  A" ",  I ? I ‘j  ) 

21170  1 20C0iii'I,;Ul: 

1  l . r?  ri'l-  ( I ; If  ) 

''ilyn  if  ico  ; r i ;ue 

1,0  Of  I i'if  1 ; 10) 

2  1210  1 Ot-OP  .\A T<  / ) 

2I220  RET  TNI 
21230  END 

2 I ;M.-)C**.H-*****-'r**ZLi  AT  rl.TJRES  OUT  THE  l-'LOAi  RO..G******  .-*******:••.-  •-* 

2 ' ) SU."  (MIT  IiJr:ZLf)A  i C IDE) 

7 126 J SR PC 

2 1270  1 1 i ( 3 ) = LE! 

21260  10(4)  =LEH 

' I '>90  A0(  3)  ="  ;Ai,FLT" 

130  ) Ar  ( 1 )="DU!T'I.r" 

7 mo  Of.  ' ( 3>  = . 7 JE. 

1 I 320  01 . ( O , E: . 

3 1 i 30  001  I--1  ,1.4  . 

: * **  nd  ,4) , ! = | .LAST  U)  NT!  I I PAST,  I UAL:  li.  I 'AST*** ****** 

I )C**  ■ LI HE(CU  PLANNED  HISTO  I CAL > **  * «r*  * s * . ***  v*v.  **  t * 

•>  I 360  II  ’(  I ,4)  = I1  ( I ,3  ) 

2137 0 002  I = LEi!l  , LEN 
3 I 300  .1  = 1-1 

1 3°OC**;  ***13(1,4)  I ,.  K.TTfE  CONTAINS  TOE  CU  ’ U0  SNOOT  I Hi,  SCHEDULE  •"* 

1 400  2 I < ( I , ! )=I  ( J ,1  ) + I (1,4) 

214  10  1 0 ( I , 3 ) = I (I  ,3) +130 
21420  D03I  = ?,LE.i 
21  130  J = I - 1 

2 I 4400**4  *1  (1,3)  ONTAINS  THE  CUi-iULATI  VI:  LIME  Or  ALA  .Cl:*’'.***;. 

I 4«  , 31  ( I , .3  ) = I ( J , 3 ) + I ! ( 1 , 3 ) 

J 14  60  : 10  1 t - I 

■ I 1700-  ■'  ••  * I’  '■  ( 1,3)  v.O.i'.'IilO  i til-  AT'ORY  i-LOAI  LINE***-  * •••••** 

->  I 4i  D 41  ( r , 3)--f  ( I , 4 ) — I (1,3) 

2 1490  DOS  1 = 1,  [J  3 

I >*****1  (1,0  CONTAINS  file  .4  ,’.4,  HLOAl  LI  ** *** *** ****** >** 
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I *>'»• 


LL 


42'  M ( l [ (I  , . - ' 

il)  DO  ! =I.Fi  I ,L'  , 

40  A I , , Cl  / ( I , ! I , 

i ' u . ' ,4  > 

4i60  00/  l = L .1,1  4/ 

* i on 

) 7 ! si,' ) = ' Cl  , 3 ) + 

090  DO.  [ = !.  ';<  I , L. 

, 1 1 . 

5 1 0 1(1 ,4)  = [ ( I , ! ) + I ■ I , ) 

1 I , ( [ , 3 ) = 

1 Vr-).,TI  .!•: 

■ • . 4 = 1-1 

IF  ( J.  ; . i . o ‘ r " 

W P = Ii(l,-3) 

670  :';i! 

680  1 5(  [ , 3 > =K  4 

'o; ) r ' ( i ,4 ) = i o(  r , n - s 

/.■  > it  cootie; 

/n  Prfor.i 
/?■'  r-o  > 

1 . ■ . -Ir  . ... 

74  ■ SU  'DDF.  IV..  : 

/5o$;'Pc 

760  ; R I i l ( ! ; I ) 

/ / ) i ;ai  (/  -,(  ■■  . ") ) 


■ Anri  f i 1.  . - k** 


o JTPtJT:. 


1.4.1  A:  .. 


i-  I L- : : -A****'. 


21760  , p[  Pi  < I ; I ) 

2 1770  1.  Ai  (,,(■■■.")  ) 

2 17!  i 0 f = 1 , 

21  / 9 > 20i«i-"S  ( I ) = . 19UF. 

21000  0031=5,10 
2 I I-.  2(),JF5(I)  = .i  A!...!  .. 

■ I 20  II  ( .40T.FLA  ■(  m)GO  TO  256 
21  t.30  0...  .(»>)  --  ; 5 ( 6)  =. TRUE. 

2 1 040  I-  3(5)=I’  (6)  0 

2 I • .50  A('(5)  = "l  Ti.VAO" 

.?  I H60  A!  ( rj ) =“ 'O’ ; iVAP  " 

21670  256C0il'i  [1UE 
2 1 880  r •’(  I )=!.L;il 
21490  r (2)=LEiJ 
21900  I'  ( 0=1.1 . 0 
o 1 4i)  ir  i ( 4 )=LSnO 

2 I /2n  A 2 ( I ) ="  Ph'Oii 
2 I r'  3 ) A : : C 4)=‘'!M;:nC0iO' 

4 1 >40  A 0(3)=''  ACT" 

21o50  A fi  ( 4 ) = " AO  i’CU:1 " 

2 I 960  DO  I 000  44=1  , . 

21970  • R I I F ( 15  1) 

2 I 9 HO  CAl.LSl:  4 SCI  ( 2 , X ( .OJ ) ) 

7 I 9900  *****  ****-.\**f>|~  -\ .)  J j IT  I A 1.5  AnlJ  '-A  IF  Or  KUth  VF' 
? >000  ?!  A (2,30)11 , I , C r A ( I ) ,1  = 1 , 1 10 1 V I ) 


HOLE. 


I ' 

♦ 


i ‘ 


4 


!• 


1C 


M ) a ) » : - Mil 

. ! P1  / • ( , t ) ( l ’ ( I , l ) , 1 - 1 1 1 '-I : ) 

''1?  I:'*-*;  .■  • j ' ' ACl'UAI  ' !■.(■  I ICC  io  • I.I 


[.  1 1 


>?04  I ( 1,4),  1 = 1 ,u  5T  Olil’l!  Ill  EASY, 

) 'j  \ ■ ■: t , ir>  > 


r .<  7c #V 
\ t **  * 


<•*’  A'  *vr> 


-io.  . \ i ( i x , i ; ■ i ) 

*** kMk **•,  ‘u  i , 2 ) m i ! l co. . . , i ru  • ;?i--k:u.  li  ■ * *..■ ** * 


>.•>'  ) CAU.CU  .(  1,2,11  , LF-.N) 

90C*** ****** ***]  ii  , [!  OWTAIfi  HIE  LI«>  '■  **** 

2 1 ' CAI.LClJ.  ( 1 ) 

1 ° 1 t > 1)0  .71  1=1  , LHii'.) 

i . - im  i,5)  = i ( r , 3) - r : ( r , n 
- I 3')  71  1 !(  1 , 6 ) =1  U 1 ,4)-r>(  1,2) 

2?  UP  R I ft:  (I  5 7) 

, I 3 i 7KJ  . :\  !(///) 

>31  60  Pi  , !-'(  1 ; >) 

22170  PI  *1(150) 

221  ;>0  S I i F ( I 5 > ) 

231  90  ' i j A V ( ! IX, 3 )(  ) ) 

ir  at(I  ,*•  > 7/  I >") 

io  ;.!-i : i ; 1 3)  ( i At  I ) , 1 = 1 , in l 'i ) 

13  U(  ///  At  Oi  - ~ K ■ . 1 1A  ■ 1 , : 

>22  30  3 ' I i i C 1 5 4'.) 

3222  4 r ' ) ! •■;(/) 

*******> par  run  vehicle  i.ifo  u * ***** 

22260  CAI  !.L  I i f 
22270  1 0>)000,ifi;iUE 
222 MO  RETJFM 
22290  FNO 

22300  ?IJ  ROUT IU Hr  HOT 
,10  JR  ITEM  51) 

>120  1 'A.  1'  ( / f ( ) , / , 7 6 ( " * » ) , / , 76  ( " > " ) , ////// ///>////////) 

22330  El  VI LEI 
>2340  CAI  Ld  V(  1 ,0t  fPUT) 

'3350  PRI  II 
32  360  I7EYUVI 
92370  Ft-:;.' 


> v * 


J 


APPENDIX  I 


Appendix  F is  the  listing  of  two  Auxiliary  programs.  The  first 
is f used  to  build  the  vehicle  file  and  the  second  is  used  to 
build  the  component  file. 
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;gf  cwrre-o 


ill  liiiumiai imrmu  ■ ..  lllj  i 

1-3.1  r I L.  UILDLiO  RUUTINl: 

I  OU$N’)M 

i loci  ty,  /o 

\ .>•■■  DIMENSION  IA(40)  ,i..K(  2 '•  l ),AltC<  12)  ,L( 241  ) , 12  ( 1 3;  , IC(  10) 

I i jot 

I 40  PRINT,  " E ILF  NAME" 

I 50  1 )I  V=24 

■ ',r  LINt.=>95*(  | +2**8 +2**1 6 ) 

I/O  I )I  V I =IDI  V+2 
I I 'I  V2=IDI  VI  +4 

1 VI  RFAD369 , FNAME 

» 3 >9i  MAT(Ao) 

2 To  CM  LOPENF  ( I ,F NAME  ) 

2 /. i. ; ALL5AVSCK  I , XX  ) 

230  rfRITE <2 ,3 ) IDI V 
2 40  8ACKSPACE2 
2dJ  )069l 1 = 1 ,40 
260  691 IAC I )="  " 

270  C ALLS  A VSCT < 2 , YY  ) 

2 HOC 

2 VO  I 3PRIHT,"  IS  THE  FILL  BEING  !)  UPDATED  ON  2)  CREATED." 

300  READ! 50 , , ERR= 1 2) J 
I,  310  12=1 

320  IE( .NOT. J.E0.2)00T0876 
I 3 30  C 

340  11=0 

360  PRINT,'',"  NHAT  YEAR  DOES  THIS  PROJECT  BEGIN  IN",''* 

)60  READ, J I Y 
I . 370  J I Y=J  I Y-l 

3 HO  J I to  = I 2 

*9  I9PRINT,'',"  RHAT  lOi.TH  AND  YEAR  DOES  THIS  PROJECT  END  IN","* 

UK)  READ, J2M , J2Y 

110  . I r (J2M.LT . I . OR. J2M.0T . 1 2 ) GOTO  I 9 

420  2 I PR  IN  i , ~ , "WHAT  IS  THE  CURRENT  MONTH  AND  YEAF,'  OF  THE  PROJECT",''* 
430  READ, J3M , J3Y 

440  IF<  J3  L.LT.  I .OR.  J3M.GT.  I2JG0T02I 

• > ) * 1 1 * (1,3)1!, 12  ,J I M , J I Y , J2M , J2Y , J3M , J3Y , < I A ( 1 ) , I = I , I ; I V ) 

■'■60  HR  II  l (2,3)1  I , I2,J  IM,JI  Y.J2M  , J2Y  , J3M  , J3Y  , < I A ( I ) , 1 = I , Iu  I V ) 

4/0  3 FORM AT (HI2,40A2) 
tBO  11=1 

f f 4 90  l:  !DF  ILE2 

, 5 00  CALLSAVSCTI I ,XXX) 

j I O CALLSA  VSCK  2 , YYY ) 

I f 6 20  GOTO  10 

630C 

I 640  1 2PRINT,"TYPh  1 OR  2." 

I.  560  GOTO I 3 

560C 

5/0  876C0N T I NUE 
5130  J = l 


. > i.  I , i)  ! 1 , i , ’ ' i , ( I A ( I ) , 1 = I , I D I V ) 


600 

NR  I TE (2,3)11,12,''  .M 

. 1 2M , 

• ,( i a ( 1 ) , I = i ,10 IV) 

ol  > 

BOON!  I nlJh 

o20 

A i 1 , - , i . 

IL 

( t A ( l ) , I = 1 , 1 1 l V I ) 

oiO 

It-t  12. NH.  1 )GoT<)3 

0 40 

WRITH(.?,8)I  1 , 12,  IK,  11  ( i A ( 1 ) 

, 1=1 , iDivn 

6 SO 

J =J  + I 

660 

gotou 

6 70 

7 1 BACKSPACE  1 

oao 

11=1 i +1 

690 

12=1 

i 00 

JK I D-J- 1 

/ 1 0 

CALLS A 7 SCI  ( ! , XXX J 

720 

C A L LS  A V SCT ( 2 , Y Y Y ) 

/JOC 

/ 40 

lOCUN'iHUJE 

/SO 

I L=J 1 Y 

/ 60 

L EN  = 1 2 * ( J 2 Y - J 1 Y ) + J 2 M - J 1 

M 

/ 70 

NUB=.J2Y  - J 1 Y 

7 BO 

NUMY=J3 Y-J 1 Y 

7 90 

NiJi3i=uin 

800C 

.3 1 0 

9 1 OPR  1 Nf,  " IX)  YOU  NISO 

TO* 

) ADD  A RECORD," 

020 

PRINT, " 

2) 

j DATE  ALL  RECORDS," 

3 30 

PRINT," 

3) 

CHANGE  A RECORD," 

r>  40 

PR INl  ," 

1 ) 

DELETE  A RECORD," 

830 

PRINT," 

5) 

LIST  A RECORD," 

860 

PRINT," 

5) 

STOP  THE  PROGRAM." 

670 

2 4R HAD (‘30  , , ERR -23  ) IBB 

680 

I:-'(  IBB.  EQ.  1 7GOTO90 1 

5 90 

Ir-(  IBB.  E0.2)G()T0902 

900 

If( I MB. EQ. 3 ) G0T00903 

710 

I r ( I ... 

9^0 

IF  f 1 ■ ■ 501  ' >5 

MO 

IE ( IB  }.EQ.6)C0T0999E 

• V 40  C 

MO 

RINT,"  ; 'PI  IN  1 , 

,4,8 

OR  6.  " 

960 

G Si'024 

970C 
9 HOC 

990  901  CONTINUE 

990  CAM  SIT  JCT  ( I , XXA ) 

996  CAM  SETSCT(2,YYY) 

1000  PR  I NT , " NAME  ON  ! AI-'  SYSTEM' 

1010  RFAIM50,  I > ( I AC  I>  I»I,IDIV) 

1020  I NORMA  T ( 40A2 ) 

ffl  i . M " i ' IS",’'* 

1040  R|-A  ,1  J 

: . r iand  is  " , * 

1060  RF:AD,  KBC 
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!'■;/<  rtWli'i  < I ,!t)  J I ,12,  IJ,KUC,(  I A ( I >,  I !,I  IVi) 

I 0 10  ilPli  l (2,  0)  I I , I 2,  I J,K  iC,  C IAU  ) , 1=1  , i ) I V I ) 

I >20  l:NL)t-ILH2 

I 100  IrORP A T(  2 12 , 2 1 4 , 40A2  ) 

1 HOC 

I I 20  J.MD=JKID+l 
1130  12=12+1 
I I 40  KK  = ! 

I 1 30  NUB I =NUU 

II  00  JUM  1=12 

I I /O  NU  MM  =J2M 

li  0 I23CONTINUE 

II  0 IH  ( I 3 ) = I 

1200  006/21  J=l  ,NUm 
121  IE  ( I J.EQ.1HJH  I sNUMM 

I ?J0  [!(!  ( I i ) . fcQ  . - 1 >001041 

! ry  I r ( I d 3 ) . HO . -3)  GOTO  I I 1 
1240  I ibdiriiJUE: 

I ’00  ! i-  ( K.<.  EG.  I ) R I Tt  ( 60,6)  IL+IJ 
I 100  I!  ( \ .K.  FQ.O  ) WRITE  ( 66,7  ) IL+IJ 

; - JO  6r-0  ■ -ATC  TYPE  IT  THE  PRODUCE  ION  SCHEDULE  r'OR  THIS  WEAPONS  oYbTEM", 
il2!iO&  " TOP  I 9",  I 2) 

; 1 290  READ, ( IP  ( I Y ) , I Y=  I ,NUM1 ) 

13)0  III  CONTINUE 
1 1 110  IK  = l 
1320  IO/KL=IK 

I 330  IB ( IB(  I 3 ) . EQ.-3)  IB  ( I )=-*l 
I 340  0032  I Y =KL, HUM  I 
i 3 HO  IE(II3(  IY).GE.0)GOTO32 
I 360  CA  LL/.A  PPER ( I B,  I Y , IK ) 

, i 370  If-  < I H ( 13).  EQ  * -2 ) GOTO  I OH 
1 3B0  I E ( I B ( 13).E0.-4)00r032 
1390  IE (I  IK  13). LT.O >00104  1 
,1400  IE  ( I K.GT.NUM  I )0OTO4l 
14  10  IE ( IK . LE. NU.M I ) GOTO  1 0 7 
1420  32CONTINUE 
14  30  4 I CONTINUE 
I 140  IEINUMl.GE.  I2)G0T051 
I 450  LL“NUMI+I 
I 460  ')052  I Y=LL , 12 
I 4 70  5?  I«(  I Y ) =0 
I 480  *3 1 CONTINUE 

1490  PRINT  53,  I I , 12, ( IB( I Y) ,IY=I , 12) 

I 500  WRITE ( I ,53)1 t , I2,< IH< IY) , IY=I , I?) 

1510  12=12+1 
I >20  53HORMAT (212,1215) 

1530  672CONTI NUE 
I540C 

1550  IE (KK.EO.O)GOTOI 24 
1560  KK-0 


IS/* 


^ - ■ - 


|\>/<  /H)i:YiA  i'(  "TYPE  In  I U-  Ai.l  1 1..  • « MJlON  r ()U  I V" , l 2 ) 

1580  NUB1 -NUM Y 
• v.'O  JUKI  = 12 
1600  iVUM/.  -J 
1610  GOTO  123 
I 630  I 24CON  i'  1 NUF 
1 6 JO  9201  I = I 1 1 
1640  12=1 

I 650  CALI  JiAVUCn  1 , 1 a '<  ) 

1660  GALLbAV5Cr(2,VYV ) 

1 6 10  GO  ro910 
I680C 

1690  9<> ’CONTINUE 
1/00  CA  LLSE rSCT ( 1 , X X ) 

1 7 1 OC 

17  : i(  1.  Gri  i A ; ' ,\I  ']•.•/  00  i I3H  TO  UPDATE  THE  FILE" 

1 /JO  READ  ,K8 
1740  J3m:=.J3,u,;b 
1 750  JS=J3M I 
I 760  J3Y  1 =J3Y 

1 770  70 1 I r ( J3M 1 . i E. 12)00  0/02 
I 780  J 3 Y 1 =•  L3Y1  + 1 
I / 90  J3M I =J3M 1-12 
MOO  GOTO  701 
1310  702C0NTINUE 

1320  LFNP=I  2«(J3YI  J I Y ) +J3M 1 --J I M 

1830  IF (LENP. GT.  I EN ) GOTO 7 00 

1840  LEN0=1  2*  ( J.3Y -J  1 Y ) +J3M  J 1 

1850  LED  1 =LEHO+  1 

1860  L!  NA=1 4*( J3YI  1-J I Y)+?+J3M 

1370  JF2=  l 4*J  3Y  1 - 1 4 *J  | Y 

I860  LENZ=I4*NUR 

1890  JF«J3Y-JIY 

1900  LENU=JF* 1 4 

1910  JFF=MI NO  ( 1 2-J3M,  KB ) 

1920  JFM.J3YI-J3Y 
1 930C 

1940  EAD<  ,3)11  *12»J  1M,J  1 IAU),I«1  ,IUIV> 

1950  WRITE<3, 3)11 .12, JIM, JIY,J  I , ( IA( I ) ,1*1 ,IDIV> 

1 9ftOC 

I <y70  / 1 0R£  U)<1,1  El  D=  1 I ( IA(IY),IY*1, 1 D I V 1 ) 

i 980  W?JTE<3,8>  M ,12,  I J , K RC,<  IA(  IY)  ,IY*1  *IDIVI  > 

1 990  READ( I , 703)<L(  I>  ,1  = 1 ,LENZ) 

2000  703FORMAK  12,1215) 

20 1 0 ifR  ITE(  3 , 703 ) (L  ( I ) , 1=  I , LENZ ) 

2020C 

2030  007421=1,241 
2040  I. ( I ) =0 
2050  742i/,E  ( 1)=0 
2060C 


1^5 


; r A ( I ,703)  (L(  I)  ,1  = 1 , LEI.'U ) 

O TYPE  1.  THE  UPDATE  DA  i •>.  TOP*" 

D9  PPI.l  / I A ( IY)  , 1 Y - i , IDIVt  ) 

2100  /62f  ORMA  I"  ( 8X  , 40A  2 ) 

1 I 10  TEA v,(MU< I ) , I ■ 1 , K H ) 

2I20C 

i 30  IP  (J3M.EQ.  I2)0()r()73l 
140  D070/I=l  ,JI  h 
..-ISO  LU=Lt  NU-(  1 2-J3M)  + 1 
7 1 ' ' 70  7L(LB)«.MB<  I ) 

! 1 .0  73 1 CONTINUE 
10  12=1 +J3Y-J1 Y+J2Y-JIY 
IP  (J3Y.E0.  J3YI  K50T0708 
200  )0  709 1 = 1 ,JH 
210  U=L.HIUJ+14*<  I-l  )+l 
2220  J=II+i 
2230  t.(  I!  ) = I I 
2240  12=12+1 
2280  L(J)=I2 
'>390  II  = II  + i 
2270  JJ  = I 2*(  I -I  ) +JFr 
200  D070v-J  = l , I 2 
2290  K= 1 1 +J 
2300  KK*=  JJ+J 
2310  L(K)=MB(KK ) 

2320  709CONTINUE 

2 330C 

2340  /08CONTINUE 
23sOC 

2 360  ,4V  ITE  ( 3 , 703 ) ( L (1  ) , I = 1 , JF2  ) 

3 3 70  OOTO  /IO 

2 380C 

2390  799CONTI HUE 
2 400  GALLONS A VE(  I > 

■llo  CALL CLOSEr  (3.HNAMF:) 

'120  CALL.  >PENF<  1 tl-'NAME) 
no  CALLSAVSCT'd  ,XX) 

2440  CALLS ETSCT ( 2, YY) 

2180  GOTOU76 

2460C 

2470C 

2 4 HO  903C0N II UUf: 

2490  I ! ) I 73  = 1 1) I V 1 + 4 
2600  I/.API=II 
2610  IZAP2*I2 
2620  PRINT30I 

.’630  30  I FORMAT!//  ,5X,  "TYPE  IN  THE  NUMBERS  OH  THE  RECORDS  YOU  WISn  TO  " 
>‘3401 1 " CHANGE"  » // ) 

2 ‘>60  JVU7=0 

>‘>60  CALLL IS  TER ( J VU  V , YY , J K I Df  IDI  VI  ) 


hi  l()  309  ! - I , 24  I 
2j60  309L(I)=-2 

,90  30  AD,  (L(I),I=I,24I  5 

2(3000 

2a 10  IZIK=I 

? 020  3060  A I.LS L I SCT(  i , XX  ) 

26  0 CALLSETSCT(2,YY) 

2640  rit=L(IZIK) 

26500 

26  '•  302C0NTINUE 

3670  REAO  ( 1 , 3 , END-30  >>72 
26.  1 : U2.F0.  II  ) GOTO 30 4 

269(  GOTO302 
?7(X)C 

710  303!  3! t', " ’.Oil  \fi  oh  AN  ERROR  TRY  AGAIN" 

2/20  50T0903 
2 730C 

■740  3049  AD(2, 333)  12, 13, (IACI), IU  ,1DIVI  ) 

27  '0  IE ( ! I . N E . 12) GOTO 304 

’7oO  BACKSPACE  I 

2 7/0  BACKSPACES 
2 /80  CALLiSAVSCK  I ,X4) 

2/90C 

2 BOO  31  3001111  NUE 

2810  71  A Kl  ,334)13, I4,(IA(J),J=I  .IDIV3) 

2820  334E0RMAX ( 2 12 , 40 A2 ) 

2 330  CALI.Sb'TSCK  t ,X4) 

’ 40  PRII-T33I  ,(IACJ),J-5,rOrv3) 

< "TYPI  1 IE  NUMB  . C ESI  OND I NG  iO  i H E CHANGES  YOU", 
Mo  i"  WISH  ro" ,/.5X, "MAKE  TO*  ",40A2,/) 

NAME  OF  WEAPONS  SYSTEM" 

PLANNED  INITIAL" 

ACTUAL  INITIAL" 

PLANNED  SCHEDULE  " 

ACTUAL  PRODUCTION  “ 


II  (ICC  I Kir  ).E0.2)G()T03  l 


2 3 10 

t>P  I 

*r,M 

1 ) 

2 '80 

°R  1 

<T." 

2) 

2890 

PR  I 

U," 

3) 

2 900 

PP I • 

< l , •» 

4) 

2910 

PR  II 

If." 

5 ) 

2920 

00  3 > 6 I =1  ,5 

2 930  3351 C( I ) =-2 

2940  RE  AL) , ( ICCI  ),  1 = 1 ,5) 

2 >50  00  3 101  = 1 ,5 
2960  I E ( 0 . GT • IC< 1 ) ) GOTO 3 1 I 
29  / 0 I E ( I C( I ) .GT. 5)0)1031 3 
2 980  C 

2 990  1 1 0001  i 1 i NIL 

HI  WEN  *»M  IN  )(5,  l-l ) 

■ (N  l.EO.OJG  >103  30 

3020C 

3030  IK  IP  = I 
J040C 
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) 10  1»-  ( ICC  IKIr  ).  f < )GuT0323 
3060  IF  (IC(  I K Ir  ) . 1:0.3  >0010323 
1090  IK  IC(  IKIF).HQ.5)C0T0325 
3100  GO 10330 
3 I IOC 

3120  32  I CONTINUE 

3 1 30  3I4READ(  1 ,333,END=332) 13,14, <!A(J)  ,J  = I , IDTV3) 
j 140  333FORMA 1 (2I2,40A2) 

! 50  CALLSETSCK  I ,X4) 

3 160  PR INT3 I 6 , ( I A ( J ) , J=5 , ID  I V3 ) 

: I 7-  3 I 5F0RMAT  (5X , "THE  OLD  NAME  WAS t " , //, 8X ,40A2 ) 

3160  PRINT3I6 

31,0  31 6i-l)RMAT(/,5X ."TYPE  IN  THE  NEW  NAME") 

3?i  ' •'•FA')  i . ( I A ( J ) , J =6  , mr/3) 

3210  NR  lit  ( 1 ,333) 13,14, ( IA( J),J=l , IDI V3 ) 

320  VRIH  (2,333)  1 3 , 1 4 , < I A(J) , J«l  ,I!)IV3) 

3230  CALL  ;ETSCT<  1 ,X4) 

3240  'JACKS PA CE2 
3 250  GOTO 332 
<2oOC 

32/0  322 CONI  I N U H 

32  0 ?EA!  ( 1 ,6,EN0=332)I3,  14 , 15, 16,  ( IA  ( J ) , J=  I , I D I V I ) 

3290  CALLSETSCK  I ,X4) 

3300  Pfi  INT336 ,16 

: 3 1 0 336EORMAT  ( / , 5X , "THE  OLD  PLANNED  INITIAL  ISi",I4) 

3320  PRINT,'*,  "TYPE  IN  THE  NEW  PLANNED  INITIAL",''* 

3330  READ, 16 

3340  338WRITEO  ,S)I3,  14,  IS,  16,  ( IA(J),J=I,  IDI  Vi  ) 

3350  WRITE (2, 8) 13,14, 15, 16, ( IA(J),J=1 ,IDI VI ) 

3360  CALLSETSCK  I ,X4) 

33/0  BACKSPACE2 
3 380  GOTO  332 
3390C 

3400  32 3 CONTI NUF 

<110  READ  < 1 ,0: , rND=332  ) I 3,  14,15, 16, ( IA(J),J  = 1 , IDI  V 1 ) 

3420  CALLSETSCK  I ,X4) 

<430  PRINT337,I5 

3440  33  /K)RMAT( /,5X , "THE  OLDACTUAL  INITIAL  IS*»,I4) 

3450  PRINT,'',  "TYPE  IN  THE  NEW  ACTUAL  INITIAL  INITIAL",''* 

3460  READ, 15 
34/0  GOTO 338 
3 400C 

3490  324CONTINUE 
3500  KI’U  1=0 
3510  READ< I ,0)13 
3520  00T089 

35  30  3 4 DC  A L L ■ 3 ET  SC  T ( 1 , X4  ) 

3510  READ (I, 8) 13 
3550  CALLSAVSCK  I ,X5) 

3960  344PRINT,"  TYPE  INI  THE  LAST  TWO  DIGITS  OF  THE  YEAR  AND  THE  FIRST" 


!>H ! i /•  loupl  V >U  WISH  ro  CM/  n;i  IN  THAI  YEAR.  DO  THIS  FOR"  * 

EACH  /FA  R.  " 

3390  PlHMi  YOU  WISH  .0  CHANGE.  " 

16OO  ;X)3 4 I =* I .^4  I 

<610  342!AH(I>“-2 

3620  REALM  )AB(  I)  , I-t  ,241) 

1030  1 1 =J I Y- 1 
3640  003431=1,99,2 
36'  0 J«=MB(  I ) 
i660  :>MB<  I+l  ) 

3670  IF(J.LT.O)G»r()343 

3680  IF < J.LE.  II.OR.J.OT.J2Y)GOT()344 

3690  IF (K.LT. I .OR.K.GT. 12)00X0344 

3 7 or  343C0NTINUE 

37  IOC 

3720  34»JKR*I-2 
3730  JK=I 
3740  34 7C0NT ! NUF 
3750  II =MB ( JK  ) 

3760  JJ=MB(  JK  + ! ) 

3 7 /0  DO  34  o I = t , NUMY 

3 7«0  REAO( I ,53) ,13, 14, ( IR(J),J»l ,12) 

3790  IF ( J I Y+I , HO, 11)0070349 
3300  346C0NT I NUF 

3310  349FORMA  X ( 5X , "TY  PE  THE  NEW  SCHEDULE  FOR  19':,!2,"  STARTING  WITH  THE  ”, 
3820&12 ,”th  MONTH'*,/) 

3830  PRIUT349 , I I , JJ 
3840C 

3850  REAL),!  I»(  J) , J»J.,  , I 2) 

3360  BACKSPACE! 

3370  WR ITE ( I , 53 ) I 3 , 1 4 , ( I B ( J ) , J= I , 1 2 ) 

3380  JK-JK+2 

3890  CALLSETSCTI  I »X5) 

1900  IF (JKB. OE. JK >00X0347 

3910  GOTO 332 

3920C 

3930C 

3940  325CONTINUE 
3950  N=J2Y-.Ji  Y+l 
3960  1)03381  = 1 fN 
3970  3RHREA  '(1,8)13 
3980  CALLS A VSCT < I ,X5) 

3990  <PUI«0 
4000  0()T0 380 
in  10  38 7CON T I NUF 
4020  CALLSFTSCn  1 ,X5) 

4 v j j 0 GOTO  344 
4040  332CON TIMUE 
4050  CALL  SHI  SCK  ! ,X4) 

•1060  IK  IF  = 1 KI F+ 1 
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4070  JOTCJ  J I 2 
lOtiOC 

4090  330CONTI HUE 

4100  rz  IK =1 Z I K-^  t 
4 110  IF(L(  IZIK).GT.O)OOT0306 
4 1 20  CALLbEToCr ( 1 ,XXX) 

4 130  CA  LL5ETSCT ( 1 , YYY ) 

4 140  I l = I Z A P I 
1150  I2-IZAP2 
4160  OOTO910 
4 1 70  C 
4 1 HOC 

4190  J0400NT I NUE 
4200  CALLSETSCT( I , XX > 

4^10  NAP=NUD+NUMY 
4 220  IMP  I - 1 4*NAP 

4230  PR I j » r , " TYPE  IN  THE  NUMBER  OF  EACH  RECORD  YOU  NISH  TO  KEEP  IN  THE 
42403. "ORDER  YOU  WANT  THEM" 

4250  JVUV=0 

4 260  CALLLISTER( J VUV, YY ,JKID, ID  I V 1 ) 

4270  RE'AD,(L(  I ) , 1=1  ,241  ) 

1230  READ < I ,3)1 ! , 12 , J IM , J 1 Y , J2M , J2Y , J3M , J3Y , ( IA( I ) , 1 = 1 , ID  I V) 

4290  CALL3AVSCT( I ,X4) 

4300  WRITE (3,3)  1 1 , 12,  JIM,  J1  Y,J2M,J2Y,  J3M,  J3Y,  ( IA(  I ) ,1  = 1 ,11)1  V) 

4 310  111  = 1 
4320  IK=L( 1 ) 

4 330  30212=1 

4340  80 3R EA 0(1,3, EH 0=304)11 
4 350  IF ( [ 1 . NE .IK) GOTO  803 

4360  G0T0B05 

4370  304PRI NT , "YOU  MADE  AN  ERROR!" 

4 380  CALLCLOSEF  ( 3 ) 

4390  G0T0904 
1400  305CONTINUE 
4410  BACKSPACE! 

4420  READd  ,3)1!  ,I2,IJ,KBC,(  IA(  I), 1 = 1 , IDI  VI  ) 

1 "■30  !R  ITE(  3,0  ) I 1 1 , 12 , 1 J ,KBC,  ( I A(  I ) ,1  = 1 , IDI  VI  ) 

4440  RFAD( 1 ,53) (MB( I ) ,I  = i ,NAP1  ) 

4450  D0808 1 = 1, NAP  1,14 

4460  JOBM'K  I )=I 1 1 

4470  WR ITE (3,53)(MB(I ),I=I ,NAPI ) 

44H0  111=11 1+1 

4490  CALLS HTSCT(  1 ,X4) 

45 'jO  I K =L ( I 1 1 ) 

4510  IF  ( IK.0r.0)G()T0rf02 
4520  CALLSE TSCT ( 2 , YY) 

4530  CALLUHSAVE( I ) 

4540  CA  I .l.C  LOS  EF  ( 3 , F N A ME ) 

4550  CALLOPENF ( I , FNAME) 

4560  CA  LL3A  V3CT ( 1 , XX ) 


A 5 70  0 n)b?.> 

4580C 
• 590C 

*600  905C0N11NUH 
46  ICC 

4 620  [ZAC  1 = 11 
4630  IZAP2=I2 
4640  PR  I INI  7 3 

*650  /3FORMAT (6X , "TYPE  If.  I HLZ  NUMBERS  OF  THE  RECORDS  WHICH  YOU  WISH  TO  "t 
4660&/,5X  ."LIST,  TYPE  IN  -1  FOR  A LIST  OF  AI.L  RECORDS*") 

4670  )VUY=I 

4 V . ; CALL!..ISTER<JVUV,  YY,JKIU,IDIVI  ) 

4690  CALLSFTSCK  1 ,XX) 

4700  no 74 1=1 ,241 

4 710  74L(  I ) =»-*2 

A 720  READ , ( L( I ) , I = 1 ,24 1 ) 

4730  ! R I T673, (CLINE)  ,J»I ,26) 

4 /40  77 CONTINUE 
4750  DO  75 1=1 ,241 
4 760  IF ( L( I ) . DE.O  )G()ro76 
4 770  It- a.  ( l).  LT.  -I  ) G0T0998  / 

4780  LB*J K I D+ I 

4 790  DO  7b.J=  I , LB 

4800  78L(  J )=>J-1 

■1810  LB*=LB+  I 

4820  IX)79J— LBf 24 1 

4830  79L(J)*-2 

4 840  GOTO  77 

4850  76C0MTINUE 

4 860  IF  (L(  I ).GT. 0)G()T()R1 

•1870  6 73r()RMAT(/,  25A3,  Ai  ,/) 

1880  PRINT  82 

4890  82F0RMA*{//,bX, "HEADER  (DATES)") 

•4900  PRINT  788 
4910  788F0RMA L( /) 

4920  PRINT83, JIM, J1 Y,  F3M, J3Y,J2M, J2Y 

4930  83FORMAT ( 8X , "MONTH  AND  YEAR  PROJECT  BEGAN" ,2X , 12 , , 1 2, /, 

49402.  HX, "CURRENT  MONTH  AND  YEAR  OF  PROJECT" , 14,"/", 12 ,/ , 

195 0J.  8X, "FINAL  MONTH  AND  YEAR  OF  PROJECT" , 1 4, "/  " , 12 ,//) 

I960  GOTO  I 84 
49  70  8 1 CONTINUE 
4980  29 IFORMATC /) 

4990  PR  IN 12 9 1 

5000  CALLSETSCTt I ,XX) 

5010  RE ADC  I ,84)1 1 
5020  9765CONTINUE 

5030  REAO(  1 ,84,END-8s  ) I I , 12  , ( I A ( J ) , J*=  I , 11)1  V2 ) 

5040  IF  (I  I . N E .1.(1  ))G0T09765 
'6050  00X086 

’6060  84 FORM A f (2 I2.40A2) 
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5070  85PRINT  , "RECORD  ",L(I),  " I SNOT  IN  fHH  FILE" 

5080  GOTO /5 

5090  36  PR  I NT87 , ( I A ( J ) , J»5 , I DI V2 ) 

) I 00  d /FORMAT (5X, "WEAPONS  SYSTEM  NAME «",//, BX , 4CA2 ) 

8110  PRINT  291 
8120  KPU I = 1 

5130  PRINTO?, IA(3), IA(4),IA(I ),IA(2) 

j 1 40  89E0RMAT (5X , "PLANNED  INITIAL  lb*  " ,2A2,/ ,5X , "ACTUAL  INITIAL  IS*  « 
b 1 506.2A2 , / ) 

3160  K=0 

51  70  1UMY  =J2Y-J  I Y 
5180  NUMM=J2M 
•.>190  NUM  1=12 
5200  PR I in  1 d 1 

32  I 0 1 3 1 1 OR M A r ( 30 X , " i ' LA NN ED ",/) 

5220  194C0NTINUE 

5230  I80F0RMAT("  YEAR",3X,"J  FMAMJJAS 

52403, , " N D»,/) 

j250  PRINT  I 80 

5250  Ur  Ml- T = 1 900+ J 1 Y 

vi 2 70  DO  1 n5J= I ,NUMY 

52~>0  IHJ. FO. NUMY  )NU»  I =NU MM 

^ 290  READ ( 1 ,53)1  I ,12, ( I8( IY), IY“I ,NUMI ) 

-3r'0  PR  INF  1 82 .LFMFT+J , ( I B ( I Y) , I Y“l  ,NUMI  ) 

5 310  I 8 2r OR MAT ( 2X , 14, 1215) 

>32 O 183CONTINUE 
5350  PRINT29I 

5 340  IF  ( K • EQ.  I . AND.  KPUT.  EQ.O)GOT()387 

j 350  I F ( K. EQ. 1 ) GOTO  13 4 

5 360  IF ( KPUT. EO.O  >0010340 

5370  386CONTI NUE 

5380  K= 1 

5390  PRINT! 85 

5400  I 85F0RMAT( 30X, "ACTUAL",/) 

•j4 1 0 NU MM  =J 3M 

5420  NUMY=J3Y -J I Y 

5430  NUM 1=12 

>440  GOTO  I 80 

5450  I 84C0NT I NUE 

5460  PRINT673,( (LINE) ,J  = I ,26) 

5470  75 continue 

5480  9987CONTINUL 
5490  11*1  ZAP! 

5500  I2=IZAP2 

5510  CALLSETSCT (I , XXX ) 

5520  GO T09 10 

5530  99990 \ Ll.fi ETSCT(  I ,XXX) 

5440  ENUEILEI 
5550  CALLCLOSEF ( I ) 

5560  STOP 
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‘>•370  K r : i J 

3500  SUBROU  I i NEZA  PEER  ( I M , I V f 1 K) 

'>530  P I MENS  I ON I R(  13) 

5600  K=I<(IY) 

5610  J = T ( IY+I  ) 

5620  IE  ( I B < I J ) . HQ . -3 ) GOTO  I 3 
3630  IhdY.UE.  I )G0T02 
5640  3 1 B ( I 3 ) - -2 

3630  PRINT,  "YOU  MADE  AN  ERROR  RETYPE  THE  LAST  LINE  OH  INPUT" 
3660  RETURN 
>6/0  2C0N1 INUE 
36;  >0  I-IH(IY-I) 

)5  'i  h <K.NE.  -MG0T04 
5700  IE/J.LT.  3)(X)T03 
> / 1 0 ff  ( IY.GT.  I 1 ) GOTO  3 
3/20  IK*-  Y + J - 1 
3/30  J-l-3 
5/40  1 3 ( I Y ) — I 
•j /‘>0  IB(  IY+l  ) = I 

3 /60  IE  ( I Y . LT „ I I . AMD.  J.GT  .OJGOTOY 

37/0  T K = I Y + 2 
3 760  IB<  I 3>— 4 
3/90  RETURN 
3300  7C0NTINUE 
.5310  :<JH=IY+2 
>320  KJ N=I Y+2+J 
3830  IE (KJN.GT. I 2 ) GOT 09 
5840  r B { 1 3 ) -- 4 
3350  KJM-rCJN 
P8o0  D08L-K  J/4,  I 2 
5370  LK  = I2+KJM-L 
3880  l.KK-LK-J 
5 390  1 3 ( LK ) = 1 8( LKK ) 

’5900  60 Oi- II  NlH 
3910  9C0NI INUE 
5920  DO IUL= 1 , J 
j930  KKH= T Y+ 1 +L 
' 6940  IB ( KKM > = I 
j-950  IOCONTINUE 
3960  RETURN 

3970  4IMK.NE.  -2) GOTO 3 
5980  I H ( I Y . LT . 2 )GC)T()3 
5990  I = IB ( I Y~1  ) 

'6000  IB(l3)«-3 
.6010  IK “I  3 
6020  DO ! I L= IY , I 2 
5030  I R ( F ) = I 
6040  1 1 CONTINUE 
6050  RETURN 
6060  I 3C0NITNUH 
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60/0  00141-1,11  , | 

,0.i0  I!1(L)«M(I2) 

6090  1 4 CO NT  I HUE 

olOO  IB  ( I 3 ) = -I  j 

6110  RETURN 
6120  END 

6130  SURROUT  I NHL  I STER  ( J VU V , YY  , JK  ID,  IDIV1  ) 

6 1 40  DI MENS I ON I A ( 40 ) 
o 1 60  PR  INTI  0 
o 1 60  lOHORMATO 
6 I 70  IE (JYUV. EO.OJGOTOl 2 
6130  PRINT! 

o l 9i I r'OR  AT  ( /X  ,"0)  HEADER  < DATES  >•• ) 

6200  1 2C0NTI.JUE 
6210  O'A LL3A  V5CT ( 2 , YYY  ) 

6220  OALL  ) E T3CT ( 2 , YY ) 

6 2 30  REAu (2,3)11 

6240  3r()i?MAT(  I2,10X,4  0A2) 

6260  READ (2,3, END=3 ) I I , ( I A< J ) ,J-I ,IDI V I ) 

0 260  PRIMT3, 1 1 , ( I A ( J) , J- 1 , IDI VI ) 

62  70  OOTOfi 

o280  3E0RM  AT(  bX  , I 3 , " ) « ,2X , 40 A 2 ) 

6290  CA  LLS  ETSCT ( 2 « Y YY ) 

6300  RETURN 
0310  END 
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